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Inchiesta tra i lettori 


0, Nome (facoltativo): 

1, Indlrlaio: vie N. città 

2* Come hai avuto questa copia iti Commodore Computer Club? 

D 1 L'ho comprata in edicola, D 2 Sono abbonato. Q 3 Me l'ha 
passata un amico/ tamil lare, ED 4 Altro ... 

a Età; 

D 1 Meno di 15 anni D 2 16-18 O 3 19-24 O 4 25-30 

□ 5 31-45 O e 46-65 Q 7 oltre 65 

4Tsaeoi 

D 1 M U2 F 

5. Occupazione: 

6. A Gli studenti sono pregati di Indicare anche l'occupazione dei 
genitori. 

□ ’ Paón D 2 Madre 

6. Se lavorate nei settore de ^informatica completate anche le 
seguenti caselle, altrimenti GOTO 0: 

Indicata l'area precisi in cui operata; 

Q 1 Mainframe D 2 Mini D 3 Micro 

7. Sa VI occupate In particolare di micro precisate ulteriormente 
il settori, altrimenti GOTO 8: 


D 1 vendita O 2 assistenza Q 3 software D 4 altro 

8. Quale deli» seguenti pubblicazioni leggati 

i ed apprettate di 

più? 

Leggo 

Qualche 

MI place 


jR c fiatarmeli t? 

volta 

di più 

MSP Computer 

Ql 

a 2 

□' 

Applicando 

Ql 

o 2 

□ 2 

Basic (enticiopedia) 

a 1 

a 2 

□ 3 

Bit 

a 1 

a 2 

o 4 

Commodore Computar Club 

Qi 

a 2 


Computer 

□i 

a 2 

□ 6 

Elettronica 2000 

□i 

D 2 

□ 7 

E ncid opedia de 1 i + informa tica 

a 1 

D 2 

□ a 

Informatica oggi 

D i 

a 2 

□» 

Micro Computer 

D 1 

a 2 

□’O 

Nuova Elettronica 

a 1 

a 2 

□ n 

PC 

□i 

a 2 

a ' 2 

Personal software 

a 1 

D 2 

□ '3 

Sinclair Computer 

□i 

D 2 

□14 

Video Giochi 

Ql 

D 2 

□16 

Zerouno 

D 1 

□ 2 

□16 

Altro (precisare) 

□i 

a 2 

□ 17 


9. Quali talloni della rivista ti Intereeuno di più 


1 1 , Quali argomenti vorreste vedere trattati? 


12. Quali altri commenti e suggerimenti puoi formulare? 


13. Poesiedl un personal computer? 

O 1 SI D 2 NO 


Se »T* Indica la merce ed il modello* altrimenti GOTO 20 
MARCA MODELLO do Kbyie 

14. Poatiedi un registratore speciale per II tuo computer? 

CJ 1 SI D 2 NO 

Se no* intendi acquistarne uno nel proni mi 12 mesi? 

Cf 3 SI O 4 NO 

16. Pouitdi un Joynlcfc? 

□' SI O 2 NO 

Se no* intendi acquistarlo entro I prosami 12 mesi? 

D 3 3t D 4 NO 

16 Possiedi un» manopola (paddi*)? 

a 1 si a 2 no 

Se no* intendi acquistarle entro i prossimi 12 mesi? 

D 3 SI d 4 NN0 

1 7 Possiedi una tavoletta grafica? 

D 1 SI D 2 NO 

Se no* intendi acquistarla antro i prossimi 12 meel? 

□ 3 si m 4 no 

1B. Possiedi una penna ottica? 

□’ SI U 2 NO 

Se no* intendi acquietarla entro I prossimi 12 mesi? 

O 3 SI D 4 NO 

1@. Possiedi un'unità a dischétto? 

□* SI D 2 NO 

Possiedi urie stampante? 

□ 3 SI D 4 NO 

20. Intendi comprare un personal computer nei prossimi 12 mesi? 

□ T SI D 2 NO 

Puoi indicare le marca ed il modello verso cui sai orientato? 


21 Intendi comprare entro l'anno un'unità a dischetti? 

d 1 si n 2 no 

22. Penti di comprar* un* atampant* antro 1* fin* dall'anno? 

D 1 SI P 2 NO 

23. Quinto conti di spendere compì lesivamente? 

D 1 Meno di L. 200 mila D 2 L. 200 ■ 500 mila 

□ 3 L 500 ■ 999 mila D 4 L 1 - 2 milioni 

□ 5 L 2 ■ 5 milioni D® oltre 5 milioni 

24- Quanti programmi software possiedi? 

Li hai comprati oppure te ne hanno regalato una copia? 

D 1 Comprati D 2 Copiati D 3 Regalali 

25. Panel di comprare dell'altro software? 

□ ’ SI D 2 NO 
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L'angolo del principiante 

I caratteri speciali dei 
computer Commodore 


SEMPRE più spesso riceviamo ri- 
chieste di delucidazione sui carat- 
teri “strani” che appaiono sui li- 
fi t ati pubblicati. Chiariamo in 
questa sede, una volta per tutte, 
il loro significato ed il modo di 
ottenerli. Teniamo a precisare 
che il discorso che segue vale per 
il Vie 20 ed il Commodore 64. 
Infatti, i modelli delia serie 4000 
ed SOOO non hanno capacità cro- 
matiche al di fuori del bianco e ne- 
ro* Cionondimeno i ragionamenti 
descritti conservano la propria 
validità anche per questi modelli, 
pur se limitati ai tasti di control- 
lo cursore, controllo schermo, re- 
verse ed inserimento nuovo carat- 
tere. 

Passo N. 1 

Accendiamo il computer. Do- 
po alcuni istanti compare un bre- 
ve messaggio, la scritta READY 
ed il cursore che lampeggia al di 
sotto di essa* Se proviamo ora a 
premere il tasto - CRSR * (- sini- 
stra-destra, cioè T ultimo tasto 
marrone in basso a destra), note- 
remo che effettivamente il curso- 
re si sposta a destra senza far ap- 
parire sullo schermo alcun carat- 
tere. Una cosa analoga accade se 
premiamo il tasto CRSR / up- 
down^ (sopra e sotto): a seconda 
del tasto che premiamo, ed a se- 
conda se premiamo contempora- 
neamente il tasto SHIFT, riu- 
sciamo a spostare il cursore in un 
punto qualunque dello schermo. 
E fin qui nulla di nuovo, nemme- 
no per i principianti. 

Passo N.2 


Posizionamoci, seguendo i 
suggerimenti del Passo 1. più o 
meno al centro dello schermo e 
premiamo contemporaneamente 
il tasto SHIFT ed il tasto 2: si 
visualizzano, in tal modo, le vir- 
golette O, A questo punto pro- 
viamo a premere uno dei due ta- 
sti CRSR, insieme, oppure no, al 
tasto SHIFT; sorpresa! Il curso- 
re non si sposta più nelle quattro 
direzioni, come visto al punto 1, 
ma visualizza, a seconda di ciò 
che digitiamo, uno dei quattro 
caratteri “strani”. Proviamo ora a 
battere nuovamente le virgolette 
una sola altra volta; subito dopo 
il cursore riprende ad essere con- 
trollato nel modo consueto. Che 
cos’è successo? 

Per spiegarcelo, consideriamo 
i 1 semplice comando PRINT 
“PROVA”. 

Quando il computer interpre- 
ta PRINT, “capisce" che deve 
stampare qualcosa, ed esattamen- 
te ciò che è presente dopo la pa- 
rola-comando PRINT. Quindi, si 
dispone a decodificare quel 
“qualcosa”. Poiché il primo ca- 
rattere che incontra è rappresen- 
tato dalle virgolette, ne deduce 
che, deve stampare una stringa o 
meglio tutti i caratteri che incon- 
trerà tra le virgolette, appena in- 
contrate e le altre che,,, si augura 
di incontrare più in là. Poiché, 
con i computer Commodore è 
possibile simulare uno sposta- 
mento dei cursore con la stampa 
di un carattere speciale, i proget- 
tisti del computer hanno pensa- 
to: “Se Putilizzatore della mac- 


china preme il tasto delle virgo- 
lette, deve averlo fatto soltanto 
per definire una stringa, come, ad 
esempio, PRINT “PROVA”, op- 
pure A$=“PROVA”. Si deduce 
quindi che, sempre con le virgo- 
lette “aperte”, ge l’utente preme 
il tasto di controllo cursore (o al- 
tri tasti speciali come quelli del 
colore) non lo fa per spostare fi- 
sicamente il cursore sullo scher- 
mo, ma solo per comunicare che 
la stringa che sta per digitare con- 
tiene caratteri speciali* A questo 
punto è dunque necessario che il 
computer trasformi automatica- 
mente la battitura del tasto dì 
controllo in carattere speciale”* 
Ma se è vero ciò che è stato 
appena detto, è anche vero che 
bisogna tener conto di quando 
Putente “chiude" le virgolette e 
cioè di quando digita nuovamen- 
te i tasti SHIFT+2. Ecco dunque 
spiegato il mistero: dopo aver 
premuto il tasto delle virgolette 
un numero di volte DISPARI 
(-apertura di virgolette), ogni 
pressione di tasto speciale verrà 
interpretato dal computer come 
comando da inserire in una strin- 
ga; dopo la pressione di un nume- 
ro di volte PARI (-chiusura di 
virgolette), il computer interpre- 
ta la pressione di un tasto di con- 
trollo come il desiderio, da parte 
dell’utente, di spostarsi immedia- 
tamente da un punto all’altro 
dello schermo. Si precisa che pre- 
mendo in qualsiasi momento il 
tasto Return, con o senza 
SHIFT, il “contatore” delle vir- 
golette viene azzerato. Inoltre il 
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computer, nel conteggiare il mi- 
ni ero delle virgolette digitate, 
non tiene conto del fatto che ab- 
biamo, o meno, cancellato alcune 
di esse con la barra spaziatrice o 
col tasto INST/DEL. Infine, per i 
soli modelli della serie 8000 e 
600/700, il tasto ESC, se premu- 
to dopo aver digitato le virgo- 
lette, annuita la possibilità di far 
apparire i caratteri-codice alta 
pressione di tasti particolari. 

Quanto detto vale ovviamente 
per tutti i tasti speciali compresi 
quelli di cancellazione schermo, 
definizione colore, reverse ecce- 
tera. 

Passo N. 3 

Proviamo ora ad azzerare il 
contatore delle virgolette con il 
tasto di ritorno carrello, e cancel- 
liamo Io schermo (SHIFT + tasto 
Clr/Home). Premiamo il tasto 
SHIFT insieme al tasto Inst/Del 
un paio di volte; apparentemente 
non succede nulla, tanto è vero 
che, se premiamo dei tasti alfanu- 
merici questi vengono scritti nel 
modo consueto come se nulla 
fosse successo. Proviamo nuova- 
mente a premere SHIFT + 
Inst/Del un paio di volte e, subi- 
to dopo: un tasto di controllo; ci 
accorgiamo che è come se avessi- 
mo premuto le virgolette; vengo- 
no trascritti i “codici” dei tasti 
premuti. Questo è, dunque, un 
altro modo di visualizzare i carat* 
teri codice tipici degli apparecchi 
Commodore ed il perchè è presto 
detto. Se, dopo aver creato uno 
spazio con SHIFT + Inst/Del, 
l'utente preme un tasto speciale, 
non lo fa per utilizzarlo immedia- 


tamente, ma di certo per inserirlo, 
come carattere-codice, all'interno 
di una stringa precedentemente 
mal digitata. Si noti che, dopo 
aver digitato SHIFT + Inst/Del, è 
possibile visualizzare perfino il 
carattere-codice della cancellazio- 
ne carattere (tasto Inst/Del SEN- 
ZA Shifl) che, altrimenti è im- 
possibile da visualizzare. 

Concludiamo le presenti note 
invitando i lettori a studiare la ta- 


bella pubblicata che contiene tut- 
ti i caratteri speciali della Com- 
modore, specificando i modelli 
su cui sono presenti. L'ultima 
stringa dell'elenco contiene tutti 
i caratteri della lista trascritti 
l’uno dopo l’altro; consigliamo, 
comunque i lettori di digitare, 
come descritto, alla rinfusa i ca- 
ratteri speciali in modo da abi- 
tuarsi ad individuarli anche nei li- 
stati più... ingarbugliati. ■ 


*** CARATTERI SPECIALI COMMODORE . *** 

*** SIMBOLOGIA E MODI DI OTTENERLI *** 

*** 

■ NERO CTRL 4 l 

M BIANCO 1 1 4 E 

m ROSSO 1 ‘43 

k AZZURRO 1 1 + 4 

m VIOLA 1 f 4 5 

y VERDE 1 '+6 

a BLU * * 4 7 

Gl GIALLO 1 1 4 g 

a REVERSE 1 - 4 9 

m RE V. OFF 1 * 4 0 

g| NOME < CLR/HOME > 

gl CRSR IN BASSO 

H CRSR A DESTRA 

J SHIFT + CLR/HOME 
D 1 • 4 CRSR IN ALTO 

H * 1 4 CRSR A SINISTRA 

m * * 4 INST/DEL 

■ FI 

5 F3 

■ F5 

Il F7 


n 

SHIFT 4 FI 

< F£> 



m 

1 1 4 F3 

< F 4 > 



m 

1 1 4 FS 

< F6> 



m 

* 1 4 F7 

< F8) 



COLOR I 

, SOLO PER COMMODORE 64 



LJ 

ARANCIO TASTO COMMODORE 

4 

1 

m 

MARRONE 1 

i i » 

4 

£ 

o 

ROSSO SC- 1 

« 1 1 

4 

3 

a 

GRIGIO I 1 

fe 1 1 

4 

4 

a 

GRIGIO 2 1 

1 i| 

4 

5 

■ 

VERDE SC . * 

- 

4 

S 

12 

BLU SCURO 1 

i i 1 

4 

7 

SS 

GRIGIO 3 * 

1 II 

4 
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Vie 20 e Commodore 64 


100 Racchette 


Un vecchio gioco molto divertente adattato ai due più noti personal Commodore. 


IL GIOCO che presentiamo* era 
famoso qualche anno fa e, faceva 
impazzire i possessori dei PeL Ri- 
chiede* infatti* una certa prontez- 
za di riflessi perchè* se si sbaglia a 
premere il tasto giusto al momen- 
to giusto, la difficoltà del gioco 
aumenta. 

In che cosa consiste il gioco: 
impartito il consueto RUN appa- 
iono alcune domande relative al 
numero di giocatori (fino a 9)* al 
loro nome e alla difficoltà per 
ciascuno di essi. Esaurita questa 
prima fase preliminare, lo scher- 
mo si cancella e dopo un po T dì 
tempo compare una cornice, che 
rappresenta i limiti del campo da 
gioco, una piccola u o” che rap- 
presenta il bersaglio ed una palla 
che si muove verticalmente rim- 
balzando ed invertendo il movi- 
mento tutte le volte che urta 
contro i bordi del campo. 

Il gioco consiste nel colpire il 
bersaglio mobile con la palla. 
Questa può essere controllata 
con i tasti ”M” ed “N” che, co- 
me il lettore può verificare, visua- 
lizzano due barre inclinate (vedi 
fig. 1). 

Non appena si preme uno dei 
due tasti, compare sullo schermo 
una racchetta con inclinazione 


corrispondente a ciò che appunto 
risulta stampigliato sul tasto stes- 
so, Attenzione, però, l'effetto 
d ella “racchetta” è completa- 
mente diverso a seconda della di- 
rezione di provenienza delia palla 



4 


Figuri 2 


(vedi fig. 2)* Non solo: la rac- 
chetta che viene visualizzata ri- 
mane presente sullo schermo au- 
mentando i rimbalzi della palla e 3 
di conseguenza* la difficoltà di 
centrare il bersaglio, ■ 



ì 
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Computer 

PROGRAMMARE 
PRESTO E BENE 


In omaggio 
il volume 



Se stai comprando un personal 
computer prova a farti queste domande : 

1 . Chi è oggi il più affidabile? 

2. Chi dà la possibilità di scegliere fra 
più sistemi? 

3. Chi fornisce soluzioni, subito. 


in una gamma vastissima? 

4. Chi propone il miglior rapporto fra 
costi e prestazioni? 

5. Chi ti dà una cosi grande esperienza 
ed assistenza? 

A tutte le domande puoi rispondere con 



ORE. IL N I 


mtrn^ 








un solo nome: Commodore Computer. 

Anche per questo Commodore 
è il Numero 1 . In Europa e in Italia. 

Sei in buone mani. 

Commodore Italiana Spa 
Milano, telefono 02/612565 1 


Z Commodore 

’ COMPUTER 




Gruppo Editoriale Suono 


m&p COMPUTER è una pubblicazione del 




180 
190 
200 
2 10 
820 
230 
240 
250 
280 
278 
280 
280 
300 
310 
BEO 
330 
3-90 

aro 

380 
370 
388 
330 
403 
4 10 
420 
430 
440 
450 
400 
470 
480 
430 
500 
510 
520 
530 
540 
550 

58© 
570 
580 
530 
£00 
6 10 
620 
830 
040 
650 
S60 
670 
880 


PX = 1 :DIMNX( S> ,PM$< 9) ,PSX(9J ,PMX( 9 ) :K 

PR 1 NT l( hi ai 00 RACCHETTE 

PRI NT "SCOLPISCI LA PALLA <0>" 

PR 1 NT “CON LE RACCHETTE 71 E mm n 
PRINT H *NF GIOCATORI CI -9 >7 *> : GOSUB 1030 1 P Y-X 

PRINT "M?ETURNP DOPO OGNI HOm “ 3 GOSUB 1090 
PR I NT ! PR I NT = PR I NT " tf 3 RE M I UN TASTO" 

GETAS: IFA*=" "THEN250 
P L=PL+1! I FPL >FYTNENPL» 1 

TS = T I : TX^TB + B000:PC= I iPK = 4200:D = l 

FRINT'J 1 s FOR I «3738BTG3S339 ' PQKE I ,0iMEXT 

PR I NTB £ " SaG I OC . "PL” - M LEFT*< PN$C PL > , 10 > h “J 

FORICI TQg 1 Ì PRI NT" a HMBBi j— «— MI 11 f * NEXT 

PRINT"* RESA - ! ) D I F F . = " < 20-NXCPL) >/2 “fl*LEFT*< B*,4>; 

T = I NT < RND< I )*5I 1+4036) i IFC 4196 < T)ANO< T< 4507 ? THEN330 
TD = 1 5M4=NK( FL> 

IFFEEKC TX >32THEN330 
P0KET,37 

P:c = PK+DiD=SGN< D ) *< t ABSC D > AND 1 ) *22 +C ABSC O ) AND22 >/22 ) 

FORI t = 1T0NN: IFPEEKC PE > =8 1 THENPOKEPE ,32 
PE = PK * GET I $ : IFI$< >" ,J THEN490 
IFPEEKC PK+DK >32THEN44© 

PK =FK +D ! POKEPK ,81 = NEXT JPOKET, 32 iT=T+TD*D 
IFPEEKC TX >3£THENTD * - TD * T = T+TD *□ 

P0KET,37 * GOTO380 
IFTI >TXTHENPS=0 ' GOTO630 

IFPEEKC PK+O )=7STHENPK = PK+D;D = D-SGN< D ) *23 ! G0SU8 1 250 : GGTO3B0 
IFPEEKC PK+D)=?7THENG0SUB 12501 60T0376 
0 = -D : IFPEEKC PK -O > =87THEN620 
GOTO380 

1F 1*^ "M JJ THEN530 
I F 1 £ = " M r THE N563 
IF1$ = " f w THEr4P3^0 :GOTO630 


GOTO400 

□ ^□SPC = PC+1 i POKEPK ,78 
D=0-SGM( D ) *23 i GOTO380 
JFPEEKC PK +D) =78THENPK= 

FK+D 

0 =0 1 PC=PC + 11 POKEPK ,77 
IF0='lTHEND-“£2 
IF0=22THÉND= 1 
I F G ” 1 THEND e 22 
I F0 = 'EETHEND * - 1 
G0TO380 

FS - 1 000 -12*CPC~1 > - I NT< < TI-TS>/6>! IFPSC 0THENPS = 1 
PSXC PL3*PS 

PNXC PL > * I NTC C PMXC PL>*C PX-1 >+PS?/FX) 

PR 1 NT " JSI3 1 1 -r 1 1 * ? 

PR INT "31 Gl OC . IDF JFUNT. tMED IA I - ; 

PR INT " a I ■+ ì ! 1 “J 

pr i nt " a [ ■ i i i aiB " t 


690 FOR 1 = 1 TOPY 
635 REM REGOLO 
700 PR INT N 1 ,f PN*C J);R IGHT#C KK* + STR*C < EO-NXC I>)/2>,2? 
710 PRINT'I "RIGHT«KK*+8TR*< FSXt I 1 

720 PR INT RI GHT$C KK$+3TR$C PMT4C I ) ) , 3 ) " | " J 

733 NEH T 

74s pRiNT"ais i i i ai a t 

750 PRI NT H a 1 — — H — 1 1 

7S8 PR INT "NUMERO 01 PARTITA * "PX ; PR 1 NT l 
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770 FORKK = 1 TQ4 +PL * PR I NT "M" ' : h£XT : PR I NT " *H M i FORKK ^RLTOP Ys PR I NT 11 ; *NEXT 

780 I FPL =PYTHENGQSUB300 FOR I - 1 TOP Y t P3>ì< I > =0 : NEXT * PX =PX+ 1 iGQTO£40 
790 PRINT* jb™ìì^ kfmt UN TASTO PER CONTINUARE " = GOTO250 
800 PR I NT " J— M g AM8 I Sdì F^ 31 COLTA ’ < S/N> ?■ '^iGOSUBS?© 

810 I Fft* = H N “ THENRE TLIRN 

3£0 PR I NT » I OCATORE NUMERO 7 " ; l GOSUB 1 030 J XX =X ; I FX >P YTHEN8E0 
930 A$-PN$< XX) ; AA = 10 

340 IFMIO*< A*,AA, 1 "ANOAA > 1THENAA=AA- 1 ì GOTO840 

85G A*=LEFT*< AS^AA) SPRINT " aSM 1 ’ A* :PRIMT“ DIFFICOLTA 1 ATTUALE i "< 20-NXC XX)) 
< Y2 SPRINT 

860 PRiMT” LA MEDIA E * “P^ XX > ! PR INT 
070 PR INT" PUNT « PREC, TS// XX) 

830 PR I NT " ||NUO VA ISCHI 1 COLTA ’ < i~9>? " J ? GOSUB 1030 : NX< XX > *20 -X *2 

330 PR I NT : PR I NT " 3JC AMB I ANCORAI S/N >7 * ; : GQSUB370 : I FA** “ S " THEN820 
330 RETURN 

310 FORI = ITO 100SGETA*: I F A3£ >" "THEN330 
830 NEXTiPR INT "3 li* ; 

330 FOR I " 1 TO 1 80 s GETA* ! IFA*< > M "THEN350 

840 FHXT:PR1NT H H ITMGOTQ310 

350 IFVAL< A* ) -0THEN8 1 B 

960 PR I NT " ■’ A * s S - V AL< A» > : RETURN 

370 FOR I - 1TO1O0S BETA*: IFA4X > M "THENI010 

380 NEX T £ PR I NT ,f £1 U*N 

330 FOR I =* ITO 1001 GETAS! IFASK > w "THEN1010 
1000 T4E X T i P R I NT *" ■ H lh ; ! GQT097B 
10 10 I F A B\ > >, 5*AMJA$< > "N ” THEN378 
1080 PR INT "■"ASS RETURN 

1030 FGR 1*1 TG 100 : OETASì IFA*< >« “THENI070 
T040 NEXTSPRINT "a 

1050 FORI - ITO I001GETAS: IFA*< >" "THEN1070 
1060 NEXTSPRINT-S || H ; i GOTO 1 ©30 
1070 IFA*< n 1 ■ , QRA*>"3'' THEN103B 
1O30 PR lNT 1 *5 tr A*iX = VAL< AS? : RETURN 
1 030 PR I NT p S" i FORK = 1 TOP Y i PR INT : PR I NT 

U0© PR INT " NOME DEL G 1 OCA TORE " ; 

U10 GOSUB 1 140 SPRINT 

1180 PR INT: PR INT" 0 IFF i COLTA ' PER IL G I OC A T - w K “ < 1-3)7 u ;; GOSUB L 036 : NXt K ) 
1130 NEXT: RETURN =20-£*X 

1 140 B5=" * 

1 150 FGR 7 = 1 TO50 i GETAS : IFASC > H " THEN1 1B0 

l 160 NEXT i PR INT 1 * A II 1 ’ ; : FOR J ~ I TD50 : BE TA* : 1FA*< > " w THEN 1 1B0 
! 1 70 NEXT SPRINT" 1_J| f i GOTO 1 1 50 
1 160 A - ASC*. I F A = 1 3THEKFR I NT “ ■_ " : GOTO 1230 

1 130 I F A = 20 A f ID LE N*T 6$) > 1 THENB* = LEF T3K B^LENC B*>- 1 > : PR 1 NT ‘ fLJflt Jl t iGDTOl 150 
1300 I F A ^ S 0 AND LE NK >=1THENB*= N * * PR I NT " •JflUI" * 5 GOTO i 150 

13 10 IFA-GEORC B4< A AND A < SS > THENFR I NT M ! N A* ; :BS-B^+A^: 1FLEN< B*> >9THEN1£30 
1330 GOTO 1150 

1330 B$ = B$+ " “ :RN^C K>"LEFT*< BS /5> + " I " t RETURN 

1240 REM Wl» SEZ IOFE: SONORA * * * 

1250 P0KE36878 , I 5 : P0KE3S376 , 200 5 FORXX= 1 TG 1 0 ì NEXT 
1360 P0KE36378 ,0 sRETURN 

1370 REM REGOLO 
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165 
167 
170 
180 
190 
£00 
810 
880 
830 
840 
850 
860 
870 
880 
890 
30B 
310 
380 
330 
340 
350 
360 
370 
380 
390 
400 
4 10 
420 
430 
440 
450 
480 

4 70 
4S0 
490 
500 
510 


REM * * * * VER „ COMMODORE 64 *** 

REM **** *** 

REM **** * ************ ****** ** 

PX=1 iDIMNKCS) ,PN*< 9>,PS VA 9) ,PM7,< 9> 

FR I NT * tJ 3100 RACCHETTE" 

PR INT "MCE RCA DI COLPIRE IL BERSAGLIO <= OV 
PR 1 NT " PREMENDO LE ' RACCHETTE 1 tfNl E ^1" u 
PR 1 NT " MAINERÒ DEI 6 I GCATDR f <l-9;>? " ; : GDSUB 1080 i PY=X 
PR] NT" SCREMI RETURN* DOPO OGNI NOME " i GOSUB 1 080 
PR INT: PR INT: FRI MTTABC 7 > "3= REMI UN TASTO PER INIZIARE" 

GETA$: IFA*=“ -THEN880 
PL-PL+ls IFPL>PYTHENPL-1 

Bf - "n » ! v*- * a/mmmjmmmm 

TS = T I : TX = TS +6000 * PC * 1 * PK = 1 100:0=1 
PR I NT W J" : FOR 1 =552961056295 : POKE I > I : NEXT 

PR I NT *'W B* " aao I OC ATQRE rt PL - “ LEFT3K PN*< PL ) , 1 0 )5PCC 12 

FOR I * 1 TP 22 : PR I NT" a WIIIIHHIH M— MH— MH— — ** >NEXT 
PR I NT ° JSFREMI ! PER ABB RNDOWRE . D I FF 1 COLTA J = “< 20-NXC PL > "Il 1 LEFTSK B*,4>; 
T = I NTC RNDC 1 ) *900+ 1024 >s 1 FC 33248< T > ANDC T< 33888 ) THEN340 
TD = 1 = NN=N>:C PL ? 

IFPEEKC TX >3£ THEN340 
POKET, 87 

PK=PK+D:0=SGNC D>*< ( ABSC D>AND1 > *40 +< AB5C D>AND40>/40> 

FORI l = lTOm: IFPEEKC PE ) =8 1THENP0KEPE ,32 
PE =PK : GET E$: ]FIf< V" THEN500 
IFPEEKC PK+OK >38THEH450 


PK = PK +D : POKEFK ,81 : NEXT : POKET , 32 : T = T + TD *D 
IFPEEKC TX >32THENTD--TDS T = T + TD*D 
POKET , 87 : GOTO380 
IRTI >TXTHENPS =0 : GOT0640 
IFPEEKC PK+0)=78THENPK = PK+D!D=D-SGNC D> 

*4 1 : GOSUB 1840 :GOTO390 

IFPEEKC PK + D > =77THENG0SU8 1 240 : GOTO380 
D = -Os IFPEEKC FK-O?=87THENS30 
GQTG390 

1F I$-"N M THEN540 _ 

I F 1 $= "M" THEN570 


520 IF M 2 " 1 " THENPS =0 : GQTO640 

530 GOTO 4 10 

540 0=0 :PC=PC+ 1 :POKEPK ,78 
550 D =□ -SGNC D > *4 1 : GOTO 3 90 
560 IFREEKC PK + D > -7STHENPK =PK +D 
570 O -D : PC “PC + 1 : POKEPK , 77 
580 I F0= - 1 THE NO ■ -40 
590 IFO-40THEND= 1 
600 I FQ = 1 THEND =40 
610 I FO = - 40 THEND * - 1 
B80 GOTO390 l 


630 PS= 1000- i£*C PC-1 ) - I NT C C TI -TS>/6> : I FPS< 0THENPS “ 1 
640 PSX< PL)=FS 

650 PM^C PL J = I NTC < PM>:< PL>*< PK-U +PS>/F>0 

660 PR INT \JXBBBi3 i i 1 r~ i ” 

670 PR I NT “ ÌEH3 1 GIOCAT, IDIFF.I PUNT. i MEDIA 1" 

630 PR INT‘lMU3f 1 \ 1 1" 

830 PR I NT M f ■ I I | 31* 

700 FOR 1=1 TOPY 
705 REM REGOLO " 

710 FRiNT"lMiai> ”PN*C I )< 80-NXC 3 ) )./2" I *PSX< I > TABC SS > " I "PMXC I >TAB( 37 > "«MI " 
7£F> NEXT 

730 PR INT "lividi ■ I I i 31* 

740 PR INT" RUBI" 1 1 1 1 ■" 

7^0 PR INTSPCC 10 > "NUMERO DI PARTITA = " PX : PR I NT " J 
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7E0 FORKK= 1T04+PL SPRINT : NEXT SPRINT ' s FORKK =PLTQP Y ì PR INT f : NEXT 

770 IFPL = RYTHENGOSUB730 : FOR I = 1 TOP Vt PSX< I > =0 : NEXT ; PX=PX+ 1 ! G0TO250 
7 SO PR I NT " mmm " SPCX 8>" SCREMI un TOSTO PER CONT I NUORE "= GGTO260 
7S0 PRINT-JMSISI'SPCC 7>“*:0Mei DIFFICOLTO* <S/N>7* -;sG0SUB96© 

300 I F 0$ ** 14 N B THE NRE TURN 

3 10 PR I NT * JHC I OCATORE NUMERO 7 B * s GOSUB I 020 • XX =X s I FX >PYTHEN8 1 0 
820 0* = PN*< XX) =00-10 

830 IFMID*< A*,AA , 1 >** “AND A A > l THENOO^OO - 1 SGOTO830 

840 0* = LEFT*C ft*,00> SPRINT* tìSa 'O* ' ■ DIFFICOLTO 1 OTTUOLE : “C 20 -NX.< XX > ) 72 ! PR 1 NT 
850 PRINTSPCC LENCO*> >" LO MEDIO RAGGIUNTO E * 11 PMX< XX > : PR 1 NT 
860 PR INTSPC< LEN< 0*> ) “ PUNTEGGIO PRECEDENTE "PSX< XX) 

870 PRINT"»4U0V0 DIFFICOLTO 1 (1-9)7 m t = GOSUB 1 020 ! NX< XX > =20 -X *2 

880 PR I NT : PR I NT " MC3MB I ONCORO < S/N 7? B ; : GOSUB360 : 1 F AS* 1 S * THEN8 1 0 

830 RETURN 

908 FOR I = ÌTOI00!GETO*s IF0*< > “ hl THEN940 
910 NEXT s PR I NT p U 11"; 

920 FORI=ITO100SGETO*: IFft*< >* B THEN940 

330 NEXT:PRINT"M B B ; :GDTD900 

940 IFVOL< O*>=0THEN900 

950 PR INT A$ s S * VOL< A* > s RETURN 

860 FOR I - 1 TO 1 00 s GETO* t IFA*< >*”THEN1000 

870 KEXT:PR INT'fl N“ * 

380 FOR 1-1 TO 1 00 s GE TO* s IFO*< > ** “THEN 1 000 
990 NEXT s PR INT "■ M'isGOTOSG© 

1000 IFOSK >"S“ftNDA*< > B N“ THEN8B0 
1010 PR 1 NT "■''A* : RETURN 

1020 FORI* ITO 100: GETO*i IFA*< > M "THEN1060 
1030 NEXT : PR INT "J M" ; 

1040 FOR 1 = 1 TO 1 00 i GETO^ • IFO*< > 11 'THENl 060 
1050 NEXT! PR INT "■ N" ; : GOTO 1 020 
1060 IFO*< “ 1 11 ORO * > “ 9 " THE N l 020 
1070 PR INT H B ,l O*:X*VOL< OS > ! RETURN 
10S0 PR INT N J1 É ^ FORK= 1T0PY:PR 1NT:PR INI 

1030 PR I NT ** NOM£ DEL G I OCO TORE 11 K “ ? JflMHMHI *9 

1100 GOSUB 1 130 SPRINT 

1 I 10 PR I NT s PR I NT * D I F F 1 COL T O 1 PER IL G I OCOT . 11 K " C I -8 >7 11 ; 8 GOSUB 1020 s l'&tf K > =20 -2*X 
1120 NEXT IRE TURN 
1 130 Bl- " p 

1 140 F0RJ=lT05&!GETO*s 1FA*< > ** 11 THENl 170 

I 150 NEXT i PR INT “ ZUM" ì s FOR J * I TO50 : GETO* : IFO*< >* "THENl 170 
1160 NEXT : PR INT*» H" ! SGOTOI 140 
I 170 A=3SC( 0«> : 1 FA = 1 3THENPR INT : GOTO 1220 

1 180 IFO = 20ONDLEN< B* ) > 1 THENBS-LEF T$< B$,LEN< BS > - 1 > s PR I NT 11 ■ !■ : SCOTO 1 140 

1 130 IFO*20BNDLEFK = ITHENBS- " - SPRINT 11 ■ —I J : GOTO 1140 
1200 IF0 = 32GR< 64 < AANDA< 98 > THENPR INT B fi" OS; : = IFLETK >9 THENl 220 

32 10 GOTO 1 140 

1220 ef=B #+ H " JPNfC K ) =LEFT$( B*, 10 ) + " | “ e RETURN 

1230 REM *** SEZIONE SONORA *** 

1240 POKE 54296, 15 

1250 POKE 54277,64 s POKE 54276,1? ! PQKE54272 , I 7 s POKE54273 , 87 
1260 FOR K x I TO l©i NEXT: POKE 54296,0 
1^70 RETURN l^QP REM REGOLO " — 
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Didattica 


Il buffer della tastiera 


Cerchiamo di capire come “ragiona” il nostro personal 


L’ARTICOLO illustra, in modo 
più che dementare, ciò che acca- 
de tutte le volte che premiamo 
un tasto. Come applicazione pra- 
tica si esaminerà un programma 
che, a dispetto della sua brevità, 
può essere utilizzato in più di 
un’occasione. 

Se il lettore avrà la pazienza 
di seguire alla lettera tutte le no- 
te che seguono, sarà in grado di 
apprendere nuove nozioni in mo- 
do semplice e rapido, 

• Prima fase. Digitate il seguente 
microprogramma: 

100 T1S- ”000000” FQR I - 1 
TO 7000 : NEXT: PR1NT T1S 

Esso non fa altro che azzerare 
l'orologio interno del computer, 
contare da 1 a 7000 e visualizza- 
re il tempo impiegato nei conteg- 
gio. Questo risulta essere di circa 
sei secondi, 

* Seconda fase. Facciamo partire 
il programma (RUN) e con una 
certa rapidità, prima cioè che tra- 
scorrano i sei secondi, digitiamo 
sette tasti a caso, come ad esem- 
pio: QWERTYU 

Possiamo notare che essi non 


vengono visualizzati immediata- 
mente sullo schermo. Quando pe- 
rò, il tempo dell’e laborazione ter- 
mina, essi appaiono sul video e il 
cursore lampeggia a destra del 
settimo carattere. 

Ciò dimostra che i tasti pre- 
muti, durante un’elaborazione, 
non vengono "persi”, ma memo- 
rizzati da qualche parte all’inter- 
no della memoria del computer e 
stampati non appena Felabora- 

zione termina. 

• Terza fase. Battiamo nuova- 
mente RUN e, prima che il con- 
teggio abbia termine, digitiamo 
tutta la seconda fila della tastiera 
(13 tasti): 

QWERTYU IGP©V 

Quando però il programma 
termina noteremo che vengono 
visualizzati solo i primi dieci ca- 
ratteri (QWERTYUIOP). Ciò di- 
mostra che non è possibile me- 
morizzare più dì dieci caratteri 
contemporaneamente, 

Il luogo in cui i caratteri ven- 
gono memorizzati è detto rey- 
board buffer: memoria di transi- 


to della tastiera. 

* Quarta fase. 1 1 buffer di tastiera 
è localizzato nei dieci byte il cui 
indirizzo va da 63 1 a 640, Il nu- 
mero di caratteri da considerare è 
memorizzato nel byte 198. 

Se per esempio, in un certo 
istante, in 198 è presente il valo- 
re 5, questo comunica al sistema 
operativo del computer che, i ca- 
ratteri del buffer da considerare 
sono i primi cinque e che gli altri, 
eventualmente presenti, devono 
essere ignorati 

* Quinta fase , Digitate ora ii pro- 
gramma ESAME BUFFER TA- 
STIERA. Commentiamolo breve- 
mente, Il contenuto della loca- 
zione 653 vale uno nel caso sia 
premuto il tasto SHIFT, due se si 
preme [J tasto Commodore, quat- 
tro se si preme CTRL, Ovviamen- 
te, vale zero nel caso non venga 
premuto nessuno dei tre tasti. 
Nella locazione 197, invece, è 
contenuto il valore-codice degli 
altri tasti della tastiera. In questo 
caso, però, se non viene premuto 
alcun tasto, nella locazione 197 


90 REM ESAME BUFFER TASTIERA *i* 

92 J 

95 IF PEEK<653)®4 THEN G0SUB 150- REM AZZERAMENTO : TASTO CTRL 

100 IF FEEK{653)"2 THEN 00SUB 130 REM VISUALIZZAZIONE : TASTO COMI 

110 IF PEEK<197)*39 THEN END : REM FINE- TASTO FI PER VIC 20 

115 IF PEB«197)»4 THEN END: REM FINE: TASTO FI PER COMMODORE 64 

120 GOTO 95 

125 : 

138 F0R I=0TO 9= PRINT PEEK<631+I > i : NEXT 
140 PRINT "r PEEK( 199) : RETURN 
145 t 

150 POKE 198*0 

160 F0R 1*0TQ 9: POKE 631+1,0: NEXT: RETURN 
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sarà contenuto il valore 64, Il va* 
lore 39 corrisponde al tasto fi. Si 
fa notare esplicitamente che i va- 
lori non corrispondono al codice 
ASCII, ma ad un codice partico- 
lare Commodore, lì lettore che 
desidera conoscerlo può digitare 
a parte il seguente, programma: 

10 PRINT PEEKU97): 

GOTO 10 

Facciamo partire il program- 
ma ESAME BUFFER TASTIE- 
RA: premendo il tasto Commo- 
dore, verrà visualizzato il conte- 
nuto dei dieci byte e, in reverse, 
quello della locazione 198, Pre- 
mendo CTRL, invece, il buffer 
viene interamente azzerato. Con 
fi, infine, il programma termina. 

Premiamo alcuni tasti a caso 
ed in seguito il tasto Commodo- 
re, oppure il CTRL, Possiamo no- 
tare i vari cambiamenti che si sus- 
seguono. Ciò dimostra che (vedi 
subroutine 150) possiamo modi- 
ficare a piacimento il contenuto 
del buffer. 

* Sesta fase, il programma IN- 
TERP À$ non è altro che una 
pratica applicazione di quanto 
esaminato finora* 

Alcuni linguaggi Basic possie- 


dono un'istruzione molto poten- 
te: INTERP AS. Vale a dire che: 

À$ ■ “PRINT 6*6+4" 

il comando INTERP A$ fornisce 
come risultato: 40, 

I modelli Commodore non 
possiedono tale istruzione ed il 
programma proposto simula il 
comando. 

Funzionamento del programma 

Quando (riga 100) viene vi- 
sualizzata la domanda: ORDI- 
NE? rispondete con una frase 
s intatticamente corretta, come 
ad esempio: 

PRINT 4*5+89 

Subito dopo (riga 110) lo 
schermo viene cancellato, e la 
stringa AS visualizzata in alto a 
sinistra. Inoltre, a qualche rigo di 
distanza, viene stampato due vol- 
te il comando CONT. La riga 1 20 
comunica al Sistema Operativo 
che dovrà considerare, non appe- 
na il programma termina (riga 
135) i primi quattro byte presen- 
ti nel buffer. 

La riga 130 "scrive” nei buf- 
fer quattro valori che corrispon- 
dono a HOME (19) e RETURN 


(13), L'ultimo byte deve essere 
sempre uno zero. Fatto questo il 
programma termina (END riga 
135) ed il S.Q, provvede ad ese- 
guire i comandi presenti nel buf* 
fer che, guarda caso, per come è 
stato precedentemente struttura- 
to, simula per due volte la pres- 
sione del tasto RETURN: la pri- 
ma per eseguire Perdine rappre- 
sentato da AS, e la seconda per 
impartire il comando CONT, pre- 
cedentemente stampato sullo 
schermo. Con CONT il program- 
ma prosegue alla lìnea successiva 
(140) che rinvia alla 100, ripeten- 
do il ciclo, 

Avvertenza 

L'istruzione INPUT non ac- 
cetta, come carattere, la virgola 
(,) il punto e virgola (;) e i due 
punti (:), Desiderando far Inter- 
pretare comandi che lì contengo- 
no è necessario, alla domanda 
ORDINE, digitare come primo 
carattere, le virgolette ("), Esem- 
pio: 

ORDINE? "A-13; B-2: PRINT 
À+B * 

AlMMndro Q» Blmorw 


10 R Eri m SIMULAZIONE DELLA **# 

20 REM FUNZIONE: INTERP fìf *** 

30 : 

90 PRINT "3" : BS*" ■: REM 21 SPAZI 

100 PRINT B$ "TIT B$ INPUT 11 ORDINE" ; fi# 

105 IF A**"*" THEN END: REM A* DE SI MONE 

110 PRINT "Dar A$ : PRINT: PRINT* PRINT "CONT" * PRINT "CONT" 
120 P0KE 198,4 

130 PQKE 631 1 19 : PQKE 632.13 : P0KE 633,13: POKE634.0 
135 PRINT PRINT : PRINT : END 
140 GOTO 100 

READY* 
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QUESTO programma riproduce 
Tormai famoso gioco condotto 
da Mike Buongiorno su una nota 
emittente privata italiana. Per chi 
non conoscesse ii gioco, diamone 
un breve cenno. I due concorren- 
ti possono scoprire a turno due 
caselle del tabellone sotto ad 
ogni casella comparirà un simbo- 
lo e si deve cercare di fare il mag- 
gior numero di coppie ( più di no- 
vef altrimenti la partita è pah 
ta , 

11 programma necessita dì 
almeno 3K RAM aggiuntivi o del- 
la S.E. (non necessita di modifi- 
che se usato con più di 8K). 

Dato il (RUN) vengono chie- 
sti i nomi dei due concorrenti 
(per ragioni di schermo deve esse- 
re al massimo di dieci caratteri), 
viene poi disegnato il tabellone 
con ogni casella, rappresentata da 
un numero da 00 a 35. (Atten- 
zione che i numeri da O a 9 sono 


scritti preceduti da uno zero, 
esclusivamente per ragioni di pre- 
sentazione grafica, non sarà dun- 
que, necessario digitare questo 
zero scegliendo la casella). 

Al primo dei due concorrenti 
verrà chiesto dì scegliere fra testa 
e croce (tasti U T” o "C"), viene 
lanciata la moneta e chi vince 
gioca per primo. Ora viene chie- 
sto al giocatore in input il nume- 
ro della prima casella che vuole 
scoprire (nel caso che la casella 
sia già stata scoperta T input non 
viene accettato e la domanda ri- 
petuta), viene così, scoperta la 
casella e si attende il numero del- 
la seconda con Le stesse modalità. 

Nel caso che sia stata fatta 
una coppia, questa viene segnala- 
ta con una scritta Lampeggiante 
in basso al teleschermo e le due 
caselle vengono colorate del colo- 
re del concorrente che ha indovi- 
nato; logicamente, il gioco rima- 


ne in mano a questi fino a quan- 
do non sbaglia. 

Se non viene fatta la coppia, 
le due caselle rimangono scoperte 
per un dato tempo, dopo di che, 
vengono rigirate ed il gioco 
passa alfa wer sano. A differenza 
del gioco di Mike, le coppie sono 
effettive e non c'è il jolly. Termi- 
nate tutte le !£ coppie del tabel- 
lone, viene proclamato il vinci- 
tore. 

Per chi non si accontenta dei 
simboli un pò 1 scarni sotto alle 
caselle con un certo qual lavoro 
dì pazienza è possibile rldefìnire i 
caratteri e disegnare per esempio: 
aerei, navi, auto ecc. 

Un consiglio, affinchè la casel- 
la girata sia più facilmente indi- 
viduabile suggerisco di tenere il 
tabellone tutto in scuro e ridefi- 
nire i caratteri in modo norma- 
le, • 

Enrico franco 


90 i 

109 36) 

ne cc«n)* H ifl or icc«<0>- ii uì ssr 

180 " IKK -38 ITO -8000 


130 

340 

100 

JS0 

170 




yy*< i i?" H u 

YY»c <xx*t e>* 

YY*< 3) ■ "■MU8U 1 * XX*< 3 > ■ " 
YYI^)> h MM>0 u i XK*< 4) 
3 3 111* 



" i YY*< 5 > 


l KX0< 5 ) - 


160 

160 

800 

810 

680 

830 

640 

8S0 


YY*< 6 ) ■ 
GO5UB000 
GOSUB1 1001 
G03UB1S L0 
QO8UB790 
GQSUB960 
GOSUB790 
30T04 10 


OOSUBS60 


u txx*< r i immiiii Miiiir 

660 PR INTH6J “■CASELLA N ■! tBJ" t 
270 IMPUTA ■ K «fi t OQSUB830 
200 IFER* 3THENPR INTH6J B0IGDTO260 
290 K-AIGOSUBS00 

300 PR INTH*i “■■CASELLA N-lftBTJ 
310 I NFUTB * K *6 < GOSUB030 

320 IFER- ITHENPR 1NTH6* “■6 H 1 B*J "CE* $ IQOTO300 


Computer ClUth 19 



330 K-B i GOSUB800 
340 6OSUB730 

350 IFA*< A)-A*< B>TNEN430 
360 FORT- ITO 1 000 t NEXT 
370 K-RIOOSUB770 
300 K -0 l GQ SUB 7 70 

390 IFA*-AA*< 0 >THENA*»AA*< I ) I J - l l GOT04 1 0 

400 A*«AA*< 0>l J-0 

410 FRINTH*! m M TOCCA A =■ *JA* 

420 OOTO280 

430 BX< A >« I tBVÀ B > * 1 k GO SUB 9 101 BOSUB 1 1 00 

440 BB< J > -BBC J> + 1 

430 N-N-l * IFN-0THEN470 

460 OOTO4Ì0 

470 IFBBC 0? -BBC 1 ) THENGOSUB730 l PR INTH*J "M PARTITA PATTA f*MGQTO5l0 

480 GO6UB730IPRINTH8J "»A VINTO ì 

490 1FBBC 0 > >8B( 1 JTHENPR INTAA*< 0 ) IGOT03 10 

300 PR I NT A A ♦< 1 > 

310 FRINT-JBI ALTRA GARA ? <Y/N>" 

320 GETA*i IFR*-"*TH£N520 

330 I F A$ - "Y" OR A# » ,T 6 * THENPR I NT * J 1 l RUN 

340 PR I NT 11 Li" I END 

330 FRI NT N fc/'VOME PRIMO CONCORRENTE UT 
360 IMPUTARE 0> 

370 ÌFLEISK AA*< 0) > > 1 0THENPR I NT " ^TROPPO LUNGO ! ** i GOTO560 
380 Pft I NT ALTRO CONCORRENTE®! - 
380 IMPUTARCI? 

600 IFLEhK AA*< I ) > > 1 0THENPR I NT " ^TROPPO LUNGO !«"i0OTO380 
6 10 PR I NT " LI" i RETURN 

620 N ■ 1 8 i P R I NT " M 0 B Jl 

630 FOR J - 1T06 < PR INT - ||“ J 
640 F0RI-ITO6 
630 PRINT”B » ** 

660 NEXT 
670 PRINT** m m 

680 PR 1 NT * M ■” 

690 hCXT 

700 PRINT" m ■* 

710 FOR J -0TO35 
720 K-J I GOSUB770 
730 NEXT 
740 RETURN 
730 PRINTH*; 

780 FORHH - 1 T06 l PR I NTB* l NEXT l RETURN 
770 Y-INTC K /B ) + 1 l X -K -< < Y - 1) *6 ) + 1 
760 PR I NTY Y*( Y ) J XX*< X ) ì HHW K ) 

790 B>XK> -0* RETURN 

800 Y- I NT C K /B )4iiX-K-<CY-Ì ) *6 J + 1 

010 PR INTYY*< Y>9XXW A*C K> 

820 BX< K)-l i RETURN 
830 ER-0 
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840 1FK >*36THENER= 1 : RETURN 
850 IFMDTCKK< >86)THEN880 
860 IFK = KKTHENER= 1 ; RETURN 
870 KK s 36 ! GOTO890 
380 KK =K 

890 IFBX< K 1THENER= 1 : RETURN 

900 RETURN 

910 K = A ! GOSUB940 

930 K =B s GOSUB940 

930 RETURN 

940 Y = I NT < K/6) + l :X*K-CC Y-1)*6> + 1 
950 PRINTYY*< Y > J XX*< X ) ; C0*< J ) ! RETURN 
960 PRINTH*; AA$< 0) 

970 PR INT "tfTffSTR O JCS^OCE ?" 

980 T= 1 

990 GETA^: IFA*= n "THEN990 
1000 I F AS = " T " THEN 1 030 
1010 I F A$ = *C" THEN 1 830 
1020 GOTO990 
1030 A=1NT< RND< 0 ) »100> 

1040 IFA>50THENPR INT^IMTESTA»" :T=I JGOTO10S0 
1050 PRINT^ACROCEI" 

1060 PR INT HI N 12 I A ";:T-0 

1070 1FT- 1 ANO A$ - 41 T " THENP R I NTA AS< 0 > s J ^0 i A*=AA*< 0 ) ! GOTO 1090 
1080 PR INTAA*< 1 > : J=i : fì$«AA*< 1 ) 

1090 FORHH= ITOTDsNEXTt T=0s RETURN 
1100 G0SUB75 0=HH=0 

1110 fr inth$; "naropp iah" 

1120 HH-HH+1 

1130 FORT * 1 TO200 : NEXT 

1140 PR 1 NTH$; " MTOPP t A - 

1150 FORT= 1 TQ200 : NEXT 

1 160 IFHH>='5THENGOSUB750 = RETURN 

1170 GOTO 11 10 

1 180 FGRJ*0TO35:READA$:HH*< J ? =A$ i NEXT : RETURN 

1 190 DATA00,01 ,02,03,04,05,06,07,08,09, 10, 1 1,12, 13,14, 15,18, 17, 18, 19,20 

1200 0ATA21 ,22,23 ,24,25,26,27,28,23,30,31,32 ,33 ,34,35 

1210 PR 1NTH*; M af=»TTEhOERE PREGO H : POR J =0TO35 J A$< J > = "*: NEXT 

1220 FORJ=0TO17!PRINTH*; J 

1230 REAOA* 

1240 Z= INT< RNDC ì> *36> 

1250 IFA*C Z >< >" 11 THEN 1 240 
12S0 A*C Z +A*+"8" 

1270 Z * INT< RNOC 1 > *38 ) 

1280 IFA*< Z )< >“ "THEN 1270 
1290 ft$(Z)* , a H+ A*+ ,, S" 

1300 NEXT 
1310 RETURN 

Franco Enrico 

1320 DATA A A ,BB , ** ,EE , FF , ## ,'/¥*, 1 1 , ** ,77 , ,££ via Marco PoJo, 1 

1330 DATA “ , * DO* /44* , M tf 1 /H # , 10095 Crugliasco (To) 

1340 END 
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SERVIZI PER L'INFORMATICA 


• CORSI DI PROGRAMMAZIONE 

• PRODUZIONE SOFTWARE 


• COMMODORE 64 


• ASSISTENZA SOFTWARE 


• PERSONAL COMPUTER 


• ASSISTENZA TECNICA 


• PERIFERICHE COMMODORE 


• LIBRERIA JACKSON 
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HELIS - VIA MONTASIO 28 - ROMA - TEL. 06/8922756 


COMPUTER 


PROGRAMMI PER IL 


Per chi non lo sapesse.., 

UN PROGRAMMA E' UTILE SE 

- E’ stato ben realizzato 

da programmatori professionisti. 

- E f ben documentato 
corredato dì ottimi manuali. 

- Viene fornito con 
assistenza e garanzia. 

La nostra biblioteca è ricca di oltre 
500 programmi funzionanti. Elen- 
carli tutti è impossibile. E’ anche in- 
utile perchè il semplice titolo non di- 
rebbe niente. 

Vi invitiamo a richiederci il 
“LIBRO BLU", un catalogo detta- 
gliato di programmi disponibili 
per il Commodore 64. 


L’UFFICIO 2000 - Via Ripamonti, 21 3 - Milano 

Te!. 5696570 /S696573 


RIVENDITORI. DIRIGENTI, PRO- 
FESSIONISTI, ARTIGIANI, NEGO- 
ZIANTI, STUDENTI, HOBBY STI, IL 

“LIBRO BLU" E STATO REALIZ- 
ZATO PER VOI ED E’ UNO STRU- 
MENTO GUIDA INDISPENSABILE. 

IMPORTANTE 

Corsi di Basica più livelli si tengano 
presso la ns. sede in ore serali. 


O 64 


COMMODORE SHOP L’UFFICIO 

2000 

Tra i primi ad introdurre i Computers Commodore in Italia 
MASSIMA PROFESSIONALITÀ’ SU TUTTI I PRODOTTI 
Assistenza Tecnica • Applicazioni Speciali ■ Permute e Occasioni 
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Subroutine e grafica ad alta risoluzione 


Finalità delle subroutine 

La subroutme è una sequenza di istruzioni studiate 
per svolgere uno o più compiti specifici, che può 
essere necessaria più volte e in più parti dello stesso 
programma. Una routine scritta sotto forma di sub- 
routine, viene incorportata nel programma una sola 
volta. Durante la sua esecuzione, l’istruzione 

GOSUB numero di linea 

provoca il passaggio del controllo al numero di li- 
nea specificato e Tesecuzione continua fino al rin- 
contro con la prima istruzione RETURN, dopodi- 
ché il controllo ritorna all’istruzione che viene im- 
mediatamente dopo Istruzione GOSUB che ha da- 
to origine al primo trasferimento di controllo. 

La subroutìne può essere introdotta tutte le vol- 
te che è necessaria, consentendo cosi un enorme 
ri spar mio di tempo là dove un certo numero di 
istruzioni si ripetono più volte nel corso dello stes- 
so programma. Di solito, quando non si fa uso di 
subroutme, il programma tende a diventare molto 
più lungo e, si sa, un programma più lungo ha biso- 
gno di un’area di memoria più grande e richiede più 
tempo per essere tradotto in linguaggio macchina. 
Inoltre, l’uso delle subroutine rende il programma 
più efficace. 

Una subroutine può essere ricopiata ed usata in 
programmi molto diversi fra loro, sia nella sua for- 
ma originale che in forma modificata. E’ opportu- 
no, perciò, che le sub routine siano sviluppate In 
modo da poter essere usate in più modi possibili 
senza modifiche: occorre cioè che siano molto fles- 
sibili. 


Sviluppo indipendente 

Un altro vantaggio connesso con l’uso delle sub- 
routine è la possibilità che esse offrono di poter 
essere sviluppate e provate in modo autonomo ri- 
spetto al programma nel corso del quale dovranno 
essere utilizzate* 

II collaudo autonomo delle subroutine permette 
di realizzare programmi molto complessi più rapi- 
damente, attraverso un’operazione di “montaggio”* 
Inoltre, per sua natura, la subroutine sviluppata per 
un programma può essere collaudata per l’uso in 
altri programmi con opportuni dati di prova prima 
di essere inserita nel programma cui è destinata* Il 
programma finale ha comunque bisogno di essere 
ulteriormente collaudato come insieme omogeneo 
per verificare che ìe parti del collegamento, cioè le 
istruzioni tra le diverse subroutme (cosi come tutte 
le subroutìne inserite), forniscano risultati corretti 
per ciascun salto del programma. In questi casi, i 
dati di prova devono essere sufficientemente com- 
pleti da verificare ogni istruzione del programma, 
come abbiamo già visto. 

Grafici e istogrammi 

Se usate il computer per analizzare dei dati, è 
quasi certo che ad un certo punto sentirete la ne- 
cessità di ottenerne una visualizzazione in forma 
grafica o di raggrupparli in tabelle di frequenza* 1 
paragrafi che seguono contengono, per l’appunto, 
la descrizione dì una serie di subroutine che con- 
sentono di soddisfare questa esigenza. 

Per consentire alle subroutine di essere compa- 
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libili, è necessario standardizzare alcuni nomi di 
variabili. Le routine sono state scritte per permet- 
tere l'elaborazione di dati fino ad un massimo di 
100 valori, contenuti nel vettore V, E' quindi ne- 
cessario poter avere nel programma principale 
un’istruzione DIM V(10Q). Se, ad esempio, i dati 
devono essere raggruppati in una tabella di frequen- 
za, prima di riprodurli su carta sotto forma di isto- 
gramma, la variabile verrà memorizzata nel vettore 
X e la frequenza nel vettore R Per la maggior parte 
degli obiettivi, occorre di solito che la tabella di 
frequenza con un massimo di quindici intervalli di 
classificazione venga opportunamente modificata; 
quindi è necessario che il programma principale ab- 
bia un'istruzione DIM contenente X{15), F(1 5). 

Subroutine di raggruppamento In baso a frequenza 

Prima di realizzare un istogramma o di eseguire 
altre forme di analisi, può essere necessario rag- 
gruppare i singoli valori dì dati in intervalli di classi- 
ficazione, annotando il numero complessivo di va- 
lori che rientrano in ciascuno di essi (in altre paro- 
le, la frequenza). 

La subroutine che permette di raggiungere que- 
sto scopo (tabella 9,1) consente di realizzare una 
tabella di frequenza costituita da 15 intervalli di 
classificazione. Tutti i dati esclusi per effetto di 
questo limite vengono stampati con la linea 2100, 
dopo la quale può far seguito una nuova esecuzione 
dei programma con i parametri di intervallo di clas- 
sificazione specificati di conseguenza. 

Il motivo per cui si tende a realizzare un pro- 
gramma in questo modo è che una routine per r im- 
postazione completamente automatica dei parame- 
tri può cammuffare la presenza di un valore indesi- 
derato che spesso può essere comodo poter ignora- 
re. 

Nella tabella 9.2 è stato riportata una subrouti- 
ne che produce l'uscita stampata di una tabella di 
frequenza. Dal momento che è vista indipendente 
dalla subroutine di raggruppamento, l’intervallo di 
classificazione e ì limiti inferiori vengono calcolati 
dai valori di vettore di X. 


26 DIH X<Ì5), F< 15) * V<tM> 

30 FRI NT "SCRIVI IL NUMERO DEGLI ELEMENTI n 
INPUT N 
50 FRI NT 
60 FOR 1*1 TQ N 

70 PR1 NT" VALORE DELL ELEMENTO" ; r 

m input v<n 

90 MEXT l 

100 FRI NT 

110 GGSUB 2000 

120 END 

130 : 

140 : 

150 : 

2000 PRI NT" SCRIVI L'AMPIEZZA" 

2005 RR I NT " DELL' INTERVALLO" 

2010 INPUT C 
2015 FRI NT 

2020 FRI NT "VALORE MINIMO" 

2025 FRI NT "ACCETTABILE" 

2030 INPUT L 

2040 FOR 1*1 TO N 

2050 FOR TO ,15 

2060 IF Va> >* <L+<C#J)> THEN 2090 

2070 FU) * FC J+1) 

20 B0 GOTO 2110 
2090 NÉXT -J 
2095 PRI NT 

2100 PRI NT V<I>; H E / OLTRE IL" 

2105 PRI NT "LIMITE STABILITO" 

2110 MEX T l 

2120 FOR J-l TO 15 

2130 LET X<J> * L * «J-. 5>*C) 

2140 NEKT J 
2150 RETURN 

REflDV. 


Tibdli 0,1 Routini di nggruppimirtta In b«* i fraquinzi 


3000 PRINT 

3010 let c * x<e> - xa> 

3020 LET L * xa> - <,5*0 

3030 PRINT" " 

3040 PRINT TRB<4)j"X"i TflB<i4);"F" 

3050 PRINT" " 

3060 EOF 1*1 TO 15 
3070 LET B « L + C*<I-t> 

3080 PRINT Bi TABU) ;TflBa4>;P<n 
3090 NEXT I 

3100 PRINT" — " 

3110 RETURN 

REfìDV, 


Tédli SJ Routini dilli tibiiii di froquinzi 
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* Problema L Tabella di frequenza degli alpeggi. 

Scrivete un programma che contenga queste 
iUbroutine per Telaboraiione dei dati riportati nel* 
la tabella 9.3. Il risultato deve essere una tabella dì 
frequenza degli alpeggi espressi in percentuale. 


Provinola 

Su paritela 

(io percentuali 1 

dftfiLi HÌDOM! 

1 

2 

3 

4 

5 

6 

7 

a 

9 

10 

11 

12 


Taballa 9,9 Dall par provincia 


Troverete il programma, che fornisce i risultati 

riportati nelle tabelle 9.4 e Al 6. 

X 

F 

20- 

ì 

30- 

3 

40- 

3 

50 - 

2 

60- 

1 

70- 

2 

ao- 

0 

90- 

0 

100* 

0 

no- 

0 

120 - 

0 

130- 

0 

140- 

0 

150 - 

0 

160- 

0 


Tabella 9,4 Tabtlla di friquanza p*r H problema 2 


Campionamento di una distribuzione di frequenza 

La subroutine che vi descriviamo in questo para* 
grafo serve a campionare un valore a partire da una 
distribuzione di frequenza, contenuta nel vettore 
bidimensionale X. La prima dimensione contiene 
un valore di variabile, la seconda, la frequenza com- 
plessiva In percentuale. 


Per permettere alla routine di essere impiegata 
in modo più generico in più programmi diversi fra 
loro, è necessario un Intervento di standardizzazio- 
ne de] vettore che contiene la distribuzione di fre- 
quenza. Innanzitutto è necessario fissare a 10 il 
numero degli intervalli dì classificazione, con il ri- 
sultato di avere un vettore X di dimensione (10,2), 
Notate che, per maggiore comodità, gli Ìndici 0 so- 
no stati ignorati. Se una certa distribuzione contie- 
ne meno di dieci righe (doé intervalli di classifica- 
zione), gli Ingressi definitivi nel vettore saranno 
identici. Per esempio, i dati da campionare, ripor- 
tati nella tabella 9,5, sarebbero contenuti nel vetto- 
re X(R,I), come indicato nella tabella 9.6. 


Variabili Frequenti *u mul itivi 

In parcar^u*!* 


5 

10 

10 

27 

15 

42 

20 

65 

25 

80 

30 

100 


Tabella 9.6 Dati di campionare 



Indio* di colonna* 1 


(.i) 

(.2) 

0.; 

5 

10 

(2.: 

10 

27 

(3,; 

15 

42 

4, 

20 

65 

3. 

23 

80 

Indio* di rigo, R (6, ] 

30 

100 

(7, ) 

30 

100 

(8. 

30 

100 

(9.) 

30 

100 

(10,1 

30 

100 


Tabella 9,9 Centanno di X{RJJ 


Tutte le distribuzioni utilizzate dal programma 
principale vengono fissate nello stesso formato 
(10,2) e, prima dell'ingresso nella subroutine, il vet- 
tore X può essere reso uguale ad esse. 

Nella figura 9. 1 è riportato lo schema a blocchi 
della subroutine menzionata; nella tabella 9.7 il re- 
lativo listato. 
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Figuri 8,1 Schtm* a blocchi di campi gremente 


900 rem esempio ni sottoprourammb 

9i0 LET Z * .I0VMRNIÌ<3> 

920 POR R-l TO 10 

930 LET V « H<R,n 

940 IF Z O X<R>2> THFN 900 

950 NEXT R 

960 PRINT "ERRORE : IL VALORE CASUAL E " 
965 FRI NT “NON FU0' ESSERE" 

960 PRINT ll CLRSSIFÌORTO, 11 
970 END 
980 RETURN 

READY > 


Taballa 87 Routlnt di cimpionimanto 


II numero casuale generato viene scalato in mo* 
do da rientrare fra 0 e 100 (linea 910). Nell'ambito 
del loop POR, il vettore X viene controllato riga 
per riga. II valore delia variabile di riga corrente 
viene assegnata a V (lìnea 930) mentre quello del 
numero casuale Z scalato viene confrontato con la 
frequenta cumulativa corrente (linea 940). Se Z è 
maggiore della frequenza, lo stesso procedimento 
viene ripetuto per la riga successiva (linea 950) e, se 
eventualmente il valore casuale Z rientra neirin- 
temilo di classificazione corrente, la subroutine 
viene abbandonata riportando il valore corrente 
della variabile V. Se, per errore di impostazione 
della distribuzione, il valore casuale Z non può es- 
sere associato a nessuna riga particolare, si giungerà 
alle linee 960 e 965 con la conseguente comparsa 
di un messaggio di errore. 

• Problema Z Subroutine dì ingresso dì dati. 

Scrivete una subroutìne che consenta di intro- 
durre i valori della tabella 9.5 nel vettore bidimen- 
sionale D. Fate in modo che possano essere in- 
trodotte fino a 10 righe di dati 

Nella tabella Al? troverete una subroutine che 
consente di soddisfare queste esigenze. 

Routine dì ingrasso protetto 

Le istruzioni dì ingresso possono provocare 
spesso gravi problemi agli utenti meno esperti Se, 
per esempio, sì preme il tasto RETURN in risposta 
ad un k istruzione di ingresso senza introdurre dati, il 
Vie accetta quel comando come RETURN nullo e 
continua il programma, spesso con risultati impre- 
vedibili. La routine che vi proponiamo (tabella 9,8) 
fà in modo che il RETURN da solo non venga 
accettato come istruzione, evitando cosi imposta- 
zioni di dati nulle, 

La routine fa uso dell'istruzione GET che accet- 
ta singoli caratteri dalla tastiera senza attendere il 
carattere di ritorno e permette l'esame da parte del 
Vie di qualsiasi ingresso da tastiera, 11 suo uso, 
combinato con quello delle istruzioni di salto con- 
dizionale, può essere efficace nella scrittura di pro- 
grammi che consentono all'utente di scegliere una 
certa strada fra più alternative dì un menu, Poiché 
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5000 REM INPUT PROTETTO 
5010 2 

5020 PRINT" «i ■*!"; : FORD =-'1 TO 50 NEXT 
5030 PRIMI" II"-' FOP Tfi 50 NEXT 
5040 GET ZI* IF ZI*"" 1 ' THEN 5020 
5050 IF 21# C> CHR$(20) THEN 5060 
5055 ZL *'LEN<ZJ*>i IF ZI CI THEN 5020 
5060 ZJ$ « LEFT#CZJ$ * 2L- 1 > 

5070 PRIMI 21$; GOTO 5020 
5030 IF 21$ = CHR$< 13) THEN 5120 
5030 FRI NT 21$; 

5100 2J$ = 7W * ?A% 

5110 GOTO 5020 

5120 IF ZJ$ * “ El THEN 5020 

5130 PRINT 

5140 RETURN 

RF3PV, 

T«b*ll« 9,8 Routìrta dt irìflfewo prowtio 

Filtrazione GET può accettare anche le risposte 
nulle, l'utente non ha tempo per rispondere a me- 
nochè nel programma non si preveda un loop. 

In questo caso si tende di solito ad usare 
un'istruzione del tipo: 

200 GET Ali IF Al ■ "TH£N 200 


che forma un loop chiuso che si spezza solo alla 
pressione di un tasto qualsiasi e, fintantoché è in 
corso di esecuzione, provoca la mancata visualizza- 
zione del cursore. 

Il principio su cui si basa questa subroutine è 
quello secondo cui una serie di caratteri battuti in 
risposta ad un loop GET sono concatenati in una 
stringa in modo da dare l'equivalente di una rispo- 
sta ad un istruzione INPUT. La linea 5110 stabi- 
lisce che la variabile Zl$ dell'istruzione GET e la 
variabile concatenata ZJS siano stringhe nulle. Le 
linee 5020 e 5030 simulano un cursore lampeggian- 
te, quindi le linee dalla numero 5020 alla numero 
5040 formano un loop GET più elaborato, nel sen- 
so che la linea 5020 corrisponde a “cursore on“, la 
linea 5030 a “cursore off e la linea 5040 "GET il 
carattere, altrimenti cursore on" ecc,. 

Non appena viene introdotto un carattere, si ha 
l'abbandono del loop e il test di verifica del caratte- 
re. 

Il primo test (linea 5050) consiste nel verificare 


la presenza del tasto di cancellazione (codice di 
carattere 20). Se il tasto DELETEè stato premuto, 
viene cancellata la lunghezza della strinp ZJS cor- 
rente (linea 5055) e se quest 'ultima è ridotta ad 
una stringa nulla, segue la reintroduzione del loop 
di ingresso, cioè si ha il passaggio del controllo alla 
linea 5020. 

Verificato se ZJS contiene caratteri, là linea 
5060 provvede ad eliminare quello più a destra 
mentre la linea 5070 fa si che il cursore si sposti 
verso sinistra. Subito dopo si ha il reingresso nel 
loop GET, 

II secondo test (linea 5080) verifica se il tasto di 
ritorno (carattere 13) è stato o meno premuto. In 
caso negativo, viene stampato il carattere accettabi- 
le che viene quindi concatenato a ZJS in corrispon- 
denza delle linee 5090 e 5100 prima che 5110 re- 
stituisca il controllo ai loop GET. 

Quando viene premuto il tasto RETURN, la li- 
nea 5080 provoca la prosecuzione dell'esecuzione 
con la linea 5120 in cui viene controllato lo stato 
delia stringa ZJS, Se quest 'ultima è ancora una 
strinp nulla, la pressione del tasto RETURN viene 
considerata inaccettabile si ha un nuovo ingresso 
nel loop GET, Se invece ZJS contiene una risposta, 
la pressione del tasto RETURN viene convalidata e 
acquisita e ad essa fà seguito l'esecuzione del- 
l'istruzione PRINT finale che conclude l'azione dei 
punti e virgola delle istruzioni di stampa preceden- 
ti. 

Grafici ad alta risoluzione 

11 computer consente di creare caratteri definiti 
dall'utente semplicemente selezionando il modo di 
traccia per singoli punti (pixel) anziché per caratte- 
ri predefiniti. Ogni carattere viene definito parten- 
do da un vettore (matrice) di 8 x 8 pixel e grazie a 
questa alta risoluzione, è possibile creare grafici di 
ottima qualità. Per poter manipolare i caratteri con 
questo obiettivo, è necessario prendere quelli con- 
tenuti nella ROM e spostarli nella RAM dove pos- 
sono essere opportunamente corretti, Ciò significa 
dover modificare anche i punti nella memoria, in 
modo che il computer possa essere diretto verso la 
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parte di RAM interessata, 

A questo proposito è disponibile una cassetta ad 
alta risoluzione destinata ai Vie che dispongono di 
una versione dei BASIC ampliata con una serie di 
comandi speciali per l'esecuzione di grafici ad alta 
risoluzione. In ogni caso, chiunque abbia Un VIC 
con una memoria di espansione di 3 o più Kbyte è 

in grado di ottenere ottime prestazioni in questo 
senso semplicemente utilizzando le subroutine ri- 
portate qui di seguito. 

L'esame dettagliato di ciò che occorre in questo 
caso esula dagli scopi di questo corso, tuttavia tutte 
le routine necessarie possono essere incorporate nel 
programmi scritti dall'utente nel modo seguente: 

1 00 a REM l M 1 7. 1 RI, I Z2ft| I DUE 

1001 REM PER L “RLTR RISOLUZIONE 

1005 PRINT"*" REM TASTI <CTRL> i( 1 

1 0 1 0 PR I N T"7' POK E 36 879 7 9 

1020 IF PEEK< 36869 >“206 THEN 1080 

1030 POK E 36869 • 206 ; POKF 36867; F’EEK < 36867 ■' OR 128 

104P POKE 55.- O- POKE 56.. 24: POKE 51.0' POKE 52.-24 

1050 RUM 1060 

1 060 S»3 2 7 68 • T=61 44 : PR I N T "HI NI 2 1 PI. I27.A2I OHE " 

1070 POR 1=0 TG 255*8+7 POKE I +T , PEEK < I +S > ' NERI 

1080 REM FINE PEL PROCEDIMENTO 

Tabella 23 Iniziai Izzazione ad alta risoluzione 

Per scrivere un programma che incorpori grafici 
ad alta risoluzione, è necessaria l’applicazione di 
due routine, la prima delle quali è riportata nella 
tabella 9.9* Questa deve essere inserita sempre al- 
l’ inizio del programma ed ha due importanti fun- 
zioni: modifica i puntatori e stabilisce le caratteri- 

stiche dello schermo e della cornice e il colore dei 
caratteri (rosso, giallo e nero), mentre i punti ven- 
gono sempre tracciati in bianco* La seconda routi- 
ne, riportata nella tabella 9.10 esegue una certa 
traccia sullo schermo, a partire dall'angolo in alto a 
sinistra, ad uno specifico pixel usan- 

0000 Rt-M PLOT 

80 1 0 KX-X/B : v?£«V/8 ' p=XX+V'ì*P2+409b : CNPFEK (P> : IFO>* i 23THEN8068 

8030 CN*CN+ 1 : 9=6 1 44 + ( 1 27+CH > *8 : T=6 1 44+0*8 

8O40 FGR Ì “STO? ■ POKF 8+ 1 . PFEK F T+ 1 > NEXT 

3050 Q== 1 27+CH : POKER , Q 

8060 c«61 44+Q*8+i'VAND7> POKEC . < 2 T>" 7- < HRHIf? > > '> ORPEEK < C > 

8030 RETURN 

Tabelle 9,10 Subrettine per le traccia di grafici 

do X e Y come coordinate* Questa seconda routine 
può essere usata anche come subroutine. Un esem- 
pio di impiego di entrambe te routine è riportato 
nel prossimo paragrafo* 

Esempio di traccia grafica ad atta risoluzione 

11 programma che esamineremo ora disegna il 
grafico de Mandamento di borsa dei titoli azionari 
di un'azienda dolciaria e del prezzo del cacao. Poi- 

chè nello spazio di un carattere è possibile tracciare 
fino a 8 punti orizzontali, una scala particolarmen- 
te efficace nelle applicazioni gestionali è di due pi- 
xel a settimana. Ciò consente di usare 104 pixel (2 
x 52 settimane) che possono essere scalati con ì 
caratteri grafici tradizionali in tredici periodi qua- 
d risettimana li. 

Questo principio, secondo cui l'anno può essere 
immaginato costituito da 13 periodi di quattro set- 
timane, viene usato spesso nelle applicazioni gestio- 
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Tabril* 0.11 Esempio di traccia di un grafico ad aita risoluzione '{funziona solo con 8K aggiuntive di memoria). 


7060 F0KE36879, 8 : REM MW SOTTOFROGRRMMfì +*** 

2010 PR INT " H3CRP I IRLE " ; TfìB< i 5 > "CACAO" , "PREZZO" ; TRE f 1^> ; "PREZZOtftìT 
2025 PER DUE ^ L T-LB+108 ; REflDRB : RT-RB+ 1 m 
2030 F OR T =0TO 1 G : X=LT- 1 0*1 : V^RT “10*1 

2040 Xt«RIGHTf< u "+STR**X},3> :V*»RIGHT*C " M +STR*CV> ,3> - PRINTXI 7 TABU 7 K V* = NEXT 
2858 REM ASSI VERI I ORLI 

2868 FGRT=5TO15-P0KE4096+22»I+3, 115:POKE4096+22#I+16. lt?5:NEXT 
2878 REM INTERSEZ. F ASSE ORIZZONTALE 

2080 P0KE4 896+ i 5*22+3 ,91 : FORI =410 1 5 ' PQKE4096+ 15*22+1 114- HEXT 


2100 PRINT ,S M"; TAB<3> : 11 1234567890123" 

3080 REM PRIMO ISTOGRAMMA 

3010 F0RX=28T0132 

3028 RERDD' IFD=0THEN4000 

3030 V=INT<<LT+55-D)#8^10> GQSUB30G8 : NEKT 

4000 REM SECONDO GRAFICO 

4010 F0RX=23T0132 RERDD IFD=GTHEN406@ 

4030 V-IHT i i RT +55-D) *3/ 18> = GOSUB8000 J NEXT 
4080 OOTO9000 ' REM FINE SECONDO GRAFICO 
8000 DftTfl60.100 
6010 REM PRIMO GRAFICO 

6020 DATAI 00.» 1 02, 185, 103. 118 ■ 1 15 . 1 12, 1 18 
602? DATAI 20, 122,118 120.. 120, 124, 126, 130 
6024 DATA 128, 126, 128, 126,125, 124,126, 122 
6026 DATA 1 22 , 1 26 , 1 28, 1 36 , 1 32 , 1 36 , 148 ,142 
6828 DATAI 44 , 142, 139, 133, 136, 3.37, 135, 138 
6030 DATA 1 36 ,134,1 32 , 132,1 30 , 128,1 38 , 1 34 
6032 DRTA0 

6100 REM SECONDO GRAFICO 
6110 DATAI 02, 184. H0, 106, 108, HO, 110, 108 
61 12 DATAI 1 0, 1 12- 113, 115, 118, 114, 116,118 
6114 DATA12G, 122, 124, 128, 118, 1 16, 1 1 4, 110 
6116 DATAI 10, 1 12,116,113, 128, 122,124 . 128 
6118 DATR120, 118, 1 13,116, 114, 113,116,115 
6128 DATAI 14, 118, 112, 188, 106. 110,114,116 
6522 DATA© 

9000 REM FINE 

Tm i fi PP ì NT M BWWlOTfl P FM I SPR2 
END 

itali e finanziane che richiedono analisi particolari 
di dati, 

La scelta di rappresentare un anno con 104 
pixel lascia sufficiente spazio sullo schermo per in- 
serire notazioni e didascalie. 

Il prezzo di borsa dei titoli della società presa in 
considerazione va collocato sull’asse sinistro, quello 
del prezzo del cacao sull’asse destro. Nella tabella 
9.11 é riportata la routine utente che va usata te- 
nendo sottocchio le tabelle 9.9 e 9.10. Le linee 
dalla numero 2000 alla numero 2100 fissano le in- 
testazioni e le scale, le linee dalla 3000 alla 3030 
tracciano le variazioni di prezzo della quota aziona- 
ria e le linee dalla 4000 alla 4060 i prezzi del cacao. 

I dati sono invece riportati nella parte di pro- 


gramma che va dalla linea 6000 alla linea 6122. 

La maggior parte delle intestazioni e delle scale 
è determinata dalle istruzioni PRINT* mentre qui 
l'inizio di tutte le scale verticali viene letto in LB 
ed RB nella linea 2025. Viene quindi calcolata la 
scala più appropriata. 

Per tracciare le variazioni dell’andamento in 
borsa della società in questione (dalla linea 3000 
alla linea 3030), viene predisposto un loop in grado 
di eseguire una traccia orizzontale da pixel 28 al 
pixel 132 e viene comunque abbandonato se il va- 
lore del dato letto, D, è zero. Cosi con il trascorrere 
dell’anno, solo le istruzioni relative ai dati devono 
essere ampliate e chiuse con uno zero. Il valore D 
viene quindi messo in scala nel valore di pixel op- 
portuno nella linea 3030. Una volta che il valore Y 

IO" MAI T2S3 / 32 P0KE36879, 27 FRINT"»" ■ 

è stato calcolato, viene chiamata la subroutine di 
traccia (8000). 

L’esecuzione del grafico relativo alle variazioni 
di prezzo del cacao presenta uno schema e una 
codifica simile a quella della quota azionaria. Poi- 
ché la routine iniziale sposta i puntatori in quella 
direzione, al completamento del grafico non compa- 
rirà il cursore. Quindi una piccola routine finale 
(9000), che chiami un’istruzione GET per chiudere 
il programma, è indispensabile. 

Per evitare che la visualizzazione sia disturbata 
dal ritorno del cursore, il messaggio da stampare 
(neUa linea 9010) viene fatto precedere da una se- 
rie di caratteri “cursore giù”, ciascuno dei quali 
sposta il cursore in giù di una linea dello schermo. 
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Vie 20 


Il Vie in italiano 


Come visualizzare i messaggi di errore tradotti in italiano. 


QUANDO si dà il RUN ad un 
programma non ancora collauda* 
to, si entra, inconsciamente, in 
una fase di estrema tensione dove 
il semplice SYNTÀX ERRQR 
può causare una crisi depressiva 
che, col ripetersi del fenomeno 
(semmai con faiuto di qualche 
ILLEGAL QUANTITY) può di- 
ventare estremamente pericolosa 
per l'incolumità dell'“aguzzino'\ 

Per evitare guai di qualsiasi 
natura, si può prendere uno dei 
seguenti provvedimenti: 

1/ creare un programma che cor- 
regga i programmi, 

2/ darsi all'ippica; 

3/ rendere meno “drastici” e più 
confidenziali i messaggi che il 
computer ci elargisce con tanta 
munificenza, facendo in modo 
che appaiano in italiano. 

Dato che la prima ipotesi è al- 
quanto utopistica e che la secon- 
da non risolve il problema, si de- 
ve prendere in considerazione la 
terza! 

La soluzione 

Siccome qualcosa di questo 
genere sarebbe stata diffìcile da 
realizzare in Basic (avrebbe occu- 
pato molta memoria e non sareb- 
be stata veloce), ho pensato, co- 
me unica alternativa, di ricorrere 
al Linguaggio Macchina. Mi sono 
messo al lavoro e sfogliando alcu- 


ni validi testi (tra i quali M&P u. 
30 pag. 28), ho notato che i pro- 
gettisti del Vie, hanno messo in 
alcune locazioni RAM (guarda 
caso) dei puntatori che fornisco- 
no rindìxizzo delle più importan- 
ti routine del Basic; uno di questi 
“dice" (ricordo che un puntatore 
è composto da due byte consecu- 
tivi) al Basic dove si trova la rou- 
tine che stampa gli errori. Le lo- 
cazioni interessate sono la S0300 
e la $0301 (768-769) che, con- 
tenendo rispettivamente $3A e 
SC4, indirizzano alla routine po- 
sta a partire da SC43A. Prima di 
conti nuare, desidero precisare 
che se è presente una espansione 
ROM in SAGQQ (per esempio, 
l'espansione grafica), tutto quan- 
to esposto sopra non vale sem- 
pre, ma la routine che si sta per 
presentare funziona lo stesso. Ciò 
premesso, passo a descrivere le 
operazioni svolte dalla sopracita- 
ta routine: mediante il codice 
d'errore riportato dalla routine 
che controlla l'esatta sintassi di 
una linea Basic, individua il pun- 
tatore del messaggio da stampare, 


chiude tutti i file aperti e i canali 
dì comunicazione, stampa il mes- 
saggio relativo al codice d'errore 
e, quindi, ridà il controllo al Ba- 
sic. La routine “originale” dalla 
quale ho ricavato quella "italia- 
nizzata", va a leggere una word 
mòle residente in ROM, indiriz- 
zata da puntatori contenuti an~ 
ch'essi in ROM. 

Le precauzioni 

Il lavoro da fare, quindi, con- 
siste nell'adattare la routine alle 
nuove esigenze, creare una word 
tahle in italiano con annessi pun- 
tatori e scrivere il tutto in una 
zona RAM non dimenticando di 
modificare il puntatore $0300 - 
$0301, in modo che indirizzi alia 
nuova routine (fig. 1 ). 

Il risultato 

Dopo aver superato le diffi- 
coltà “concettuali”, è ora di var- 
care la soglia della realizzazione 
pratica; per rendere universale (o 
quasi) questa routine, ho scelto 
di spostare la mappa video a 
$1000 (4096) e accordare il tut- 


Per caricare il programma 1 

1/ Vie senza espansioni o con espansione di 3K eseguire: 

a) POKE 36869,192: PQKE 648,16: POKE 56,3]: POKE 55,255 

b) premere RUN/STOP insieme a RESTORE 

c) POKE 43,176: POKE 44,18: POKE 4783,0: NEW 
2/ Per Vie con espansioni di 8 o 16 K 

x) eseguire solo la fase c) precedente. 
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COMMODORE 64' 

SOFTWARE SOFTWARE SOFTWARE 


GESTIONE CONTI CASA 

Gestione compieta della con lab il ila casa- 
linga voce per voce con richiami e venazio- 
ni sulle entrate ed uscite dei menage rami- 
li are. Cod. c/d 0051 

IMPARIAMO IL BASIC 

Corso di programmazione elementare stu- 
diato per apprendere gradualmente, sia le 
tecniche piu comuni di preparazione delle 
procedure computerizzate, sia de! linguag- 
gio Baste E' disponibile su normali floppy 
disk. Cod- c/d 00555 

GESTIONE FIDO CLIENTI 

Gestione del lido ai clienti, sia bancario che 
per ordinativi merci. Riporto automatico del 
fuori fido con azzeramento sul tetto massi- 
mo. Cod c/d 0065 

GEST. CONTO CORRENTE 

Gestione del c/c con aggiornamento dei 
dall e riordino automatico per valuta delle 
transazioni . Funzioni di saldo totali e par- 
ziali sulle operazioni volute. Visualizzazio- 
ne dei movimenti e stampa del rendiconto 
con saldo parziale ad ogni operazione 
Cod c/d 0066 

GESTIONE CONTI 

Registrazione dei movimenti contabili per 
clienti, tornitori, conti generali, per periodi 
aziendali, con incassati, sospesi e parli tari 
Gestione in partita semplice, con capacità 
massime di 2500 movimenti per conto su 
singolo disco. Siampe ed estrazione dei 
co nto seiez ionabil i Cod. c/d 006 7 

GESTIONE ORDINI 

G est i one delle merci i n o rdinazione dei va ri 
dienti oppure ai tornitori, con aggiorna- 
mento in tempo reale ed azzeramento 
automatico dell'archivio ad evasione ordi- 
ne Piccola contabilità deli evaso, sia par 
ziale che totale Totali degli incassi per il 
periodo in esame, stampa del tabulato sia 
sull evaso che sugli ordini da evadere. 
Cod. c/d 0071 

GESTIONE LIBRERIE 

Gestione di una libreria con tenuta e ricer* 
ca di tutti i volumi, sia per codice, che per 
autore e per titolo; ricerca personalizzata o 
a bfoch hi settoriali Cod. c/d 0086 

CONTABILITA' FATTURE 

il programma permeile di registrare tutte le 
fatture sia dei clienti eia dei fornitori. come 
imponibile e IVA. con verifica istantanea di 
tutti i movimenti per periodo o globali inso 
luti o saldati Estrazione per periodo o pe 
scheda contabile per facilitare la dichiara 
zione IVA (dienti e fornitori). Stampa glo 
baie archivio, movimenti insoluti, movi 
menti contabilizzati, estratto per periodo o 


per scheda. Richiamo e ^eiezione a stam- 
pa delle scadenze di pagamento. Il pro- 
gramma gestisce 2500 movimenti contabili 
per periodo con un massimo di 25D0 movi- 
menti per dischetto Cod. c/d 0120 

CONTABILITA MONOAZIENDALE 
SEMPLIFICATA 

Il programma Permette di registrare tutti i 
movimenti contabili (dare/avere) sia per 
clienti, per fornitori, e per conti generali in 
partita semplice. Possibilità di estrazione 
per bilanci di venfica. Schede contabili 
(diemi/fornitori) generali (banche/cassa/ 
etc.). Slampa per periodi aziendali scaden- 
ziario pagamenti sospesi incassati e parti- 
tari. Il passaggio Ira le gestioni ciienti/torm- 
tori/conli generati, non richiede il carica- 
mento di ulteriori programmi. Il programma 
può gestire 2500 movimenti contabili per 
periodo con una capacità massima di 2500 
movimenti per dischetto 

Cod. C/d 0121 

MAGAZZINO GROSSISTI 
La procedura consente la gestione com- 
pleta di un magazzino con tenuta delle 
scorte aggiornate agli ultimi scarichi, scor- 
te minime, ordinazioni e tutti i movimenti di 
magazzino. Dispone stampe divano tipo, 
tutte selezionabili. Cod d/ 0143 

MAGAZZINO E FATTURAZIONE 
AGGANCIATI 

La procedura consente la gestione com- 
pieta di un magazzeno con tenuta delle 
scorte aggiornate agli ultimi scarichi, scor- 
te minime, ordinazioni e tutti i movimenti di 
magazzino. Permette stampe di listini, sta- 
tistiche del venduto, inventario degli articoli 
con selezione per gruppo, articolo, secon- 
do il metodo UFO, e alire. L'aggancio atta 
fatturazione mette a disposizione un archi- 
vio clienti e permette la tenuta di un registro 
Iatture emesse, la stampa delle fatture, 
personalizzabile con scelta della dima, un 
scadenziario delle tratte, oltre, natural- 
mente, alt aggiorna me nto automatico delle 
scorte nel magazzino. Cod. d/0144 

GESTIONE OTTICI 

Il programma prevede van registri: uno per 
gli appuntamenti, uno per le schede relati- 
ve a ciascun cliente, un rubrica telefonica. 
Tali registri sono provvisti di stampe e op- 
zioni di vario tipo. E consentita, inoltre, la 
stampa di schede di preventivo numerabili, 
La procedura è completata dalla gestione 
del magazzino in tutte le fasi in cui è nor- 
malmente articolato Cod d/0148 

GESTIONE STUDI MEDICI 

Come gestione DENTISTI con l'eccezione 
della stampa del preventivo. Cod. d/QiS2 


DISPONIBILITÀ IMMEDIATA DI ALTRI PROGRAMMI PER OGNI APPLICAZIONE. 
TELEFONARE A: 

leoni 

0ml?®i?D : [n]a^0eas,.i, 

20142 MILANO - VIA DON RODRIGO, 6 * TEL 02/8467378 



to (routine, puntatori e messag- 
, gi), ponendone rinizìo a SI 200 
(4608), A questo punto, spostan- 
j do il principio del Basic (modifi- 
cando il puntatore S2B-S2C) ho 
| reso possibile l 1 utilizzazione del 
software esposto su tutte le con- 
I 1 igurazionj di memoria, senza 
cambiare nulla e senza spreco di 
1 “preziosi* 1 byte (tranne, purtrop- 
po, per T espansione da 3Kb, che 
può venir utilizzata solo per la 
memorizzazione di dati e di rou- 
| line in L.M.). 

1 programmi 

M programma l contiene solo 
alcuni “avvertimenti" in italiano 
(i più frequenti) di tipo “confi- 
denziale", mentre il programma 

2 (fig. 3), prevede La visualizza- 
zione di tutti i messaggi in Italia* 
no, ma in* modo più stringato e 
"serio". Preciso che entrambi i 
programmi sono utilizzabili an- 
che con la versione base del Vie* 
ma il primo, per owii motivi di 

I occupazione di memoria* è quel- 
lo più adatto per la eonfigurazio- 
! ne standard. 

Uso 

La messa in opera dei due 
programmi consiste* per chi ha 
una espansione RAM superiore a 
3Kb, nel digitare POKE 43,176: 
POKE 44,18; PGKE 4783*0 
NEW quando si usa il programma 
l o POKE 43 J 00: POKE 44*20: 
POKE 5219*0: NEW se si utilizza 
il programma 2, mentre chi ha il 
Vie in configurazione standard o 
con T espansione da 3Kb* dovrà 
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1 REM****************** ************4* ****** ****** 

2 REM* * 

3 REM* IL VIC IN... ITALIANO C PROGRAMMA I? * 

4 REM* * 

3 REM* BY PASQUALE D ' ANDRE T I TEL , 0023/88 I 2 1 B * 

6 REM* VERSIONE CONSI OLIATA PER VIC I ESPANSI * 

? REM******************************************** 

8 *' 

10 PRI NT" ATTENDI H IL-4S00 
20 READAB* IFAB" "X " THEN50 

30 A » ASC< AB)-48iB«ASC< RIGHTB< A*, 1 > >-*48tN-BK B>8>*7+< 16*< ( A>9J*7+A> > 
40 P0KEL,NIL-L41 IG0TO20 

30 PR I NT " flF INI TO " * POKE 768 , 0 1 P0KE769 , 18JEN0 

31 REM* 

32 REM*ROUTINE STAMPA ERRORI 

33 REM* 

60 DATAeA,0A, AA,B0,60, 12 ,63, 22, 60, 6E , 1 2 , BS , 23 , 4C , 4 A ,C4 

101 REM* 

102 REM*MESSAGGI IN ITALIANO 

103 REM* 

1 10 OATA33,43,32,49,56,49,20,42,43,4E , 43 ,2C ,20, 43 ,32 ,43 
120 DATA34 ,49,4E,4F,AI , 43 ,49 , 20 ,36 , 35 , 4F ,4C ,43 ,20 ,49 ,4C 
130 DATA20,46,4F,52,2C,20,53,43,43,4D,4F , A 1 , 40 , 45 ,34 , 34 
140 DATA49,20,49,4G,20,47,4F,33,55,42 , A 1 ,43 ,27 ,43 ,27 ,20 
150 DATA33 , 4E ,4 1 ,20 , 4G ,49 , 4E ,43 ,4 1 , 20 , 46 , 4 1 , 4E , 34 ,4 1,53 
160 DATA4D , C J , 52 , 49 , 36 , 43 , 44 , 4 9 , 20 , 4S , 20 , 44 , 4 1 , 34 ,C 1 

401 REM* 

402 REM*PUNTATGRI 

403 REM* 

410 DATA9E ,C 1 ,AC,C1 ,63 ,C 1 ,C2 ,C 1 ,00, Cl , E2 ,C 1 ,F0 ,C 1 ,FF , C 1 
420 DATA 10 , C 2 ,23, 12, 10, 12, 3C ,12, 62 ,12, 3 A ,C2 , 6A , C2 , 72 , C2 
430 0ATA48 , 1 2 , 90 , C2 , 90 , C2 , AA , 02 , 6 A , C2 , C8 ,C2 , 05 ,C2 , E4 , C2 

440 DATAEO ,C2 ,00 ,C3 ,2D ,C3 , 1E ,C3 ,24 ,02 ,83 ,C3 

441 REM* 

442 REMiFIhC CODICI 

443 REM* 

430 OATAX 

T^P%77T777m^77*wT7w*77*7** ********* * 

2 REM* * 

3 REM* IL VIC IN I TAL 1 ANO . PROGRAMMA 2 * 

4 REM* * 

9 REM** ********************************* 

10 PRINT" JPiTTENOI " iL-4608 
20 READABl 1FA»" M X*THEN30 

30 A ■ ASC< AB) “48iB-ASC< R IGHTB< AB, 1 > ) -48 ■ N*8 +< B >9 >*7+< 1 6 *< < A >9 ) *7 + A ) > 
40 POKEL ,NIL*L+1IGOTO20 

30 PR INT**F IMITO" * P0KE768 ,0 1 P0KE769 , l S * END 
51 REM* 

32 REM*ROUTINE STAMPA ERRORI 

33 REM* 

60 DATA06 ,FB , A8 , 4 1 ,A0, 12 ,20, 1E , CB , A6 , FB , 8A , 0A , AA , 80 , 27 



79 D0T014 ,83,88,00,60, 14, 93, 23,80, CC.FF ,09,00,03, 13,20 

sa O0T007 ,00,80 ,43 ,CB ,00 , 00 , B 1 ,68 ,40 , 60 , 7F , SO ,47 ,CB ,C0 

90 D0TR68 , 1 0 ,F4 ,E0 ,70,06 ,04 ,30,00 ,F8 ,83 ,88 ,C8 ,00,40 ,74 ,C4 

91 REM* 

SS REMtCODICl DI ' ERRORE ■ 1 
93 REM* 

188 D8TA8D, 43, 32, SE, 4F, 36, 43,38,80,80 
181 REM» 

10B REM*MESS0GQI IN IT0LI0NO 
183 REM* 

1 18 D0T444 ,4) ,34 ,49 , 68 , 46 ,49 ,4C ,43 , 68 , 48 ,46 , 36 ,«E ,44 ,49 
1S0 D0T04D ,43,4E,33,2E,B0, 43,36 , 36 ,4 1 ,34 ,CF ,4E,4F,4E,60 
138 D0T030 ,4F ,33 ,33 ,4F , 80 ,43 ,4F ,4E ,34 , RE ,38,43,36 ,49 ,46 
140 O0T08E , 68, 4 1, 33, 33, 43, 4E , 34, OS, 44, 49, 36, 6E , 60,38,43 
130 D0T036, 68,38,43,36, CF,44,41 ,34,49,88,43,43,43,43,44 
168 D«T«43,4E,S4,C8,46,48,4C ,43,80,4E ,4F ,4€ ,88 ,34 ,38 ,4F 
170 DFlT«36,41,34,CF,46,49,4C,43,80,4E,4F,4E,B8,4I ,38,43 
188 D0T036 ,34 ,CF ,46 ,49 , 4C ,43 ,60 ,4 1 , 38 ,43 ,38 ,34 ,CF ,43,33 
198 D0T030 ,38 , 43, 33, 33, 2E, 68, 43, 4F, 40, 38, 4C, 43, 33, 33, CI 
688 O«T«43,4F,4D,aE,80,4E,4F ,4E ,80 ,43 ,33 ,43 ,47 ,33 ,49 ,48 
810 O0T049 ,4C,C3,4t ,58,47 ,4F ,4D,8E, 68 , 49 ,4E ,36,41 ,4C,49 
BS8 D0T044 ,CF ,4C ,43 ,34 ,34 ,33 ,36 , 4 1 ,80,49,4E ,43,33,41,34 
638 D0T034 ,C 1 ,4E ,43 , 30 ,34 , 60 ,33 ,43 ,4E ,30,41 ,60,46,4F ,08 
848 D0T046, 49, 40,43,60, 30, 43, 36, 80,40,43,34 ,34 ,«E ,46,49 
230 00 T04C, 43, 28, 30, 43, 38, 20, 33, 43, 38, 49, 34 ,34, «E ,44,41 
868 O0T034 ,4 1 ,88,49 ,4E ,33 ,33 , 46 .46 ,«E ,40 ,43 ,40 ,4F ,38,49 
870 O0T041 ,88,33,41,34,33,38,01 ,4E ,33 ,40 ,43 ,38 ,4F ,88,4E 
898 O0T04F ,4E , 80 , 43 , 4 1 , 4C ,43 ,4F ,40 ,«E ,4 1 ,36,38,41 ,39,80 
898 O0T047 ,49, 41, 67, 80, 44, 49, 40, 43, 4E ,33, «E ,43,41,38,41 
388 O0T034 ,34 ,6E ,6B,49,4E ,36,41 ,44,49,44 ,CF ,88 ,43 ,34 ,33 
318 D0T038 ,4E,8B,S3,4S,4E,S0,41 , 88 ,47 ,4F ,33 ,33 ,08 ,33 ,34 
388 O0T038, 49, 4E, 47,41 ,88,34, 38, 4F ,38,38,4F ,88, 40, 33, 4E 
338 D0T047 ,0 1 ,33 ,49 , 4E ,34 , 4 1 ,33 ,33 ,48 ,88 ,33 ,43 ,4F ,38 ,38 
340 O0T043, 34, 34,01 ,44,41 ,34, 4F ,80,49,4E ,36 ,4 l , 4C ,48,44 
330 D0T4CF ,34 ,38 ,4F , 30 ,30 , 48 , 80 , 46 ,49 ,40 ,03 ,46 ,4E ,80 ,4E 
360 O0T04F ,4E, 80,44,43, 46, 49, 4E ,49,34 ,CF ,4C ,48 ,4E ,43 ,4 1 
370 D0T080, 49, 4E, 43, 33, 49, 33, 34, «E, 36, 43, 38, 49, 46, 49, 43 
330 D0T041 ,80,49, 4E, 43, 33, 41 ,34 ,34 ,CI ,4E,4F ,4D, 43,88,46 
398 D0T049 ,40, 43, 80, 4F, 40, 43 , 33 , 33 ,CF ,4E ,33 ,4D ,8E ,86,30 
408 D0T04S ,38 ,49, 46, SE, 80, 49, 4E ,36 ,4 1 ,40, 49, 44, CF 
481 REM» 

408 REM*PUNT«T0R1 
483 REM* 

4 18 D0T0CO, 13, BE, 18, 0F , 18, 9F , 18,76,18, 18,13,89,13,83, 14 
468 D0T0 13, 14,80, 13,40, 13,07, 13,39, 13, EE ,16,33,13,43,13 
430 O0T0E6, 13,33. 16,63, 1 3 ,04 , 18 ,00 , 16 ,0F , 1 3 , 99 , 1 3 , 40 , 16 
448 D4T0C9, 18,67, 16.07, 13.F4, 13,F0, 18 
441 REM* 

446 REM*F INE CODICI 
443 REM* 

438 O0T0K 
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PC SR RC XR YR SP 
, ; 603E 33 00 63 00 F6 


• il 

1200 

STX 

*FB 

t t 

1202 

LDA 

#*41 

t ) 

1204 

LDV 

#*12 

1 f 

1206 

JSR 

*CB1E 

1 f 

1209 

LDX 

*FB 

B > 

120S 

TXR 


* J 

120C 

ASL 


« 9 

120D 

TRX 


• 9 

120E 

LOFI 

*1427, X 

B .1 

1211 

STA 

*22 

* 9 

1213 

LDA 

*1428i X 

• t 

1216 

STA 

*23 

• .' 

1218 

JSR 

*FFCC 

i è 

121 B 

LDA 

#*00 

• J 

121 D 

STA 

*13 

a 1 

121F 

JSR 

*CAB7 

* > 

1222 

JSR 

*CB45 

■ > 

1225 

LDV 

#*00 

■ > 

1227 

LDA 

<*22> > V 

i > 

1229 

PHA 


< i 

122 A 

AND 

#*7F 

* 

122C 

JSR 

*CB47 

■ f 

122F 

INV 


» 9 

1230 

PLR 


* * 

1231 

BPL 

*1227 

• * 

1233 

JSR 

*C67B 

■ > 

1236 

LDV 

*3B 

■ } 

1236 

INV 


• t 

1239 

BEQ 

*123E 

t * 

123B 

JSR 

*DDC2 

t * 

1236 

JHP 

♦C474 


digitare POKE 36869,192: PO- 
KE 648,16: POKE 56,31 : POKE 
55,255 e, senza preoccuparsi di 
ciò che appare sullo schermo, 
RUN/STOP & RESTORE oltre, a 
quanto detto prima. Tutto que- 
sto lo si deve fare SEMPRE, cioè 
sia prima deirinserimento da ta- 
stiera, sia prima della lettura da 
nastro o disco. Dopo aver tra- 
scritto esattamente il programma 
facendo attenzione soprattutto ai 


Commento 

SI 200*$ 1206: salva il registro X nella 
locazione SFB t stampa “ERRORE"; 
$1209-$ 12QD: carici il registro X nel- 
Ticcumulitore t lo moltiplica per 2, in 
modo che sommato alla locazione 
d'inizio dei puntatori dei messaggi, ne 
trovi rXeiimo, Li quale, a tua volta, 
conterrà l'indirizzo delt'Xesimo mes- 
saggio; 

S120E-S1216: carica il puntatore tro- 
vato in due locazioni di pagina zero 
(S22-S23), in modo che il posta ricor- 
rere iirindirizzamento Indicizzato in- 
diretto; 

SI 218: chiude tutti i canali e i file e 
mette in default l'1/O (tastiera e vi- 
deo); 

Si 2 1 B-Sl 222: prepara la stampa su vi- 
deo; 

$1225*51231: esegue un loop in cui, 
ad ogni ciclo, carica li Yesima lettera 
del messaggio puntato da £22-523, la 
stampa e, nel caso che non fosse l'ulti- 
ma (il codice ASCII deirultima lettera 
è maggiorato di $80 rispetto a quello 
normale), incrementa Y di 1 e ripete il 
ciclo; 

$1233-51239: ritìitema le variabili e 
controlla se l'errore è generato da una 
linea di programma o da un comando 
diretto; 

S123B: se si è verificato il primo caso 
scrive "IN" seguito dal numero delia 
linei “Incriminata"; 

SI 23E: cede li controllo al Basic. 


codici esadecimali (bisogna met- 
terci un po' di buona volontà), 
dare il RUN ed attendere fin 
quando non compare la scritta 
"FINITO 1 '; cancellare il program- 


ma con NEW per (finalmente! ) 
consolarsi della fatica sostenuta 
(se durante l'inserimento ci sì 
scoraggia, si pensi a me, che, ol- 
tre che scrivere ho dovuto anche 
calcolare e controllare tutti quei 
codici, uno per uno). Dando per 
scontato che il “collaudo" possa 
essere fatto anche senza le mie 
indicazioni (I ), non mi rimane 
che raccomandare che non si 
"sporchi" l'area di memoria oc- 
cupata dalla routine con delle 
POKE e che non sì sposti la map- 
pa video e l'inizio dei Basic. 

Conclusioni 

Dopo tutto questo lavoro, sa- 
rebbe ingiusto terminare il di- 
scorso senza esprimere delle opi- 
nioni sia pur dì carattere non del 
tutto tecnico, perciò, vorrei fare 
osservare {‘importanza, a volte 
d e t e r m i nante, deirimpiego di 
subroutine e di salti indiretti nei 
programmi in L.M., Si noti, infat- 
ti, che ì progettisti del Vie non 
solo hanno creato un hardware 
estremamente flessibile (user 
port e connettore per espansioni 
ne sono il segno), ma anche un 
software dì base completo, sofi- 
sticato e, nello stesso tempo, faci- 
le da modificare secondo le esi- 
genze individuali, proprio per La 
presenza di numerose subroutine 
e salti indiretti. « 


Per caricare il programma 2 

1/ Vie senza espansioni 
x) eseguire fase a) e fase b) programma l 
b) POKE 43,100: POKE 44,20: POKE 5219,0: NEW 
2/ Vie con espansione da 8 oppure 1 6K 
eseguire solo fue b) precedente. 


Computo Club -35 




Didattica 


Le funzioni logiche 


Un programma utile per lo studio delle tabelle della verità 


QUANDO un appassionato di 
personal computer, decide di ap- 
profondire lo studio del proprio 
apparecchio, si trova Immediata- 
mente di fronte a circuiti digitali 
che simulano, elettricamente, al- 
cune “porte" logiche elementari 

L'esame di Queste ultime, esu- 
la dallo scopo del presente artico- 
lo. Riportiamo, tuttavia, gli sche- 
mi grafici e le relative tavole della 
verità, interessate dal programma 
pubblicato. 

Che cosa fa il programma 

Dopo aver scelto quale fun- 
zione logica considerare, è neces- 
sario digitare, in decimale, ì due 
valori da sottoporre al confronto. 
Compariranno, immediatamente, 
incolonnati, 1 due valori stessi 
tradotti in binario ed il risultato, 
sia in binario che in decimale, 
dell’operazione logica compiuta. 

I valori accettati in INPUT de- 
vono, ovviamente, essere interi e 
compresi tra 0 e 255. Digitando 
un valore esterno ali 1 in temilo ci- 
tato si ritorna al menu principale. 

II programma può essere usa- 
to, su qualsiasi computer Com- 
modore, senza comprenderne il 
funzionamento, [ più interessati 
potranno però studiare le sempli- 
ci subroutine (720-990) In modo 
da avere un suggerimento su co- 
me operare nel caso si presenti la 


230 PRINT J *1 
240 FRI NT*] 


s ** L**C. 


NO» " 1 GOSU04 10 JQDT02 10 
□Rff - I 3OSU0440 i GOT02 1 0 
MAND® " t GOSUB 4 70 > GOT02 1 0 
NQR» " * GOSUB 5 00 I G0TQ2 1 0 
OR EX! “ * GOSU0530 < G0TQ2 1 0 
NOR EKB " *GO8UB360b3OTO210 
ÌNVER . ■ B i GOSUB390 ? GOTO210 


necessità di realizzare funzioni I logiche in altri programmi, ■ 

O* o* 

5 10 print*ìj*;he cosa VUOI FARE ? è 'Wt 

520 PRINT"*1> FUNZIONE ANO /a. 4 * 

230 PR I NT '*M £ } FUNZIONE OR * 

240 FRJNT-M3? FUNZIONE NANO 

200 PRINT“»4) FUNZIONE NOR 7 C 0 

260 PRiNT"») FUNZ IONE OR ESCL . 

270 PRINT"*) FUNZIONE NOR ESCL. 

280 P RINT-M7) FUNZIONE INVERTER 
290 FRINT"tt(0> FINE LAVORO 
300 OETAfM J FA*- " * THEN300 

310 IFA*- w t “THENY** "MA^NDl * t OOSUB4 1 0 i GOT02 1 0 

320 I FA*- * 2 ' THEN Y*» "MflDRfl **100808440100X02 10 

330 1 FA*- "3* THEN Y*- **t^AlSD* " « GO6UB470 i G0TO2 1 0 

340 I FA* - H 4 "THEN Y*- "MtfNORH " < 30SUB300 I 00T02 1 0 

300 1 FA* - " 0 “THEN Y*- "MflOH EHI * * ÓOSUB030 < O0TO2 1 0 

380 I FA*- “6 * THEN Y*- H BV4QR EH* * I 0OSUB560 * 0OTO2 1 

370 IFA** *7 "THEN Y*- “ DUI NVER , ■ “I 0OSUB590 ! 00T02 1 

360 I FA** "0* THEN ENO 

390 GOT02 1 0 * DE SI MONE SOFTWARE 83 

400 REM 444 FUNZIONE AND 444 

410 X7*0 * 0OSU0B30IIF X7-1 THEN RETURN 

420 OOSUB700I 0O8UB730I ODTG410 

430 REM 4*4 FUNZIOrC OR 4*4 

440 X7-01 0O8UB630UF X7-1 THEN RETURN 

400 30 SUB 7 00 i 00 SUB 7 70 t QQTO440 

460 REM *44 FUNZIONE NANO 44* 

470 K7-0I GQSUB630IJF K7-1 THEN RETURN 
480 OOSU8700 I GOSUBB 10 i 3OTO470 
4S0 REM «44 FUNZIONE NOR *4» 

000 X7-0I 0OSUB630I JF X7*l THEN RETURN 

910 00 SUB 7 00 i GO5U68S0 * ODTO900 

920 REM 444 FUNZIONE OR ESCLUSIVO 4*4 

930 X7*0I 0O8UB630IIF H7*l THEN RETURN 

540 GOSUB 700 i OOSUB6 1 0 f GOTO330 

990 REM 44* FUNZIONE NOR ESCLUSIVO 4** 

560 X7*0i 0O8UB830I IF H7-1 THEN RETURN 
970 GOSUB700 I GOSUB3601 G0T0568 
9B0 REM 44* FUNZIONE INVERTER *4* 

990 RR lNTY*"NUMi DEC, “ I 1 INPUT X 

600 I FX< 0 OR H>299 OR X < > INT< K>THEN X7-H RETURN 
B 1 0 X8-X I GOSUB 10101 GOSUB 1 070 l GOSUB 10901 OOTO590 
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NQR 


OR ESCLUSIVO 


NOR ESCLUSIVO 


inverter 











Mai un grande perso 

Quest’anno, fatti un regalo intelligente: 3. Ha un'incredibile memoria (64 K), un 

un computer dalle caratteristiche incredibili, sintetizzatore sonoro professionale, produce 

Vediamole» effetti tridimensionali* 

1. Commodore 64 è potente, sofisticato, 4. Ti diverti perchè è anche un sofisticato 

professionale. videogioco. 

2. Ha una vastissima gamma di programmi 5» Con Commodore 64 entri nel futuro, 

già pronti, lo usi nella professione, a casa, tasto dopo tasto. 

a scuola, nella ricerca scientifica, con facilità 6. Commodore 64 oggi lo puoi avere a prezzo 

e totale affidabilità, davvero speciale: 



noi è costato così poco 

approfittane però perchè sta andando a ruba, 
e chi primo arriva... 

Vieni a un punto vendita Commodore: 
ti aspetta una bella sorpresa. 


Commodore Italiana S.p.A. 

Via F. Ili Gracchi 48 - Cinisello Balsamo (MI) 
Tel. 02/6125651-6123253 


Z Commodore 

1 COMPUTER 






Speciale, specialissimo! 

Invece dei soliti videogiochi prova VIC 20, 


un mucchio di programmi. Metti le cassette 
e via con cose utili. 


e guarda quante cose fa in più! 

1 . VIC 20 ha una valanga di videogiochi, uno 
più bello dell'altro, uno più nuovo deH’altro, 

2. Ma VIC 20 è un computer e fa molto di più. 

3. Lo usi per la scuola, o per la casa, o per 
la professione. Ci sono, pronti pronti. 


4. Puoi imparare il BASIC, la lingua del 
futuro (ed è facile facile imparare 

a programmare). 

5. Nel mondo sono stati venduti più 

di un milione di VIC, a gente sveglia, quelli 
del 2000, 



Vie 20 


•CSfc 


nel » 110 


rido 



6. VIC 20 ora costa solo 199.000 lire 
più IVA. Da sballo, no? 

Perchè accontentarsi di un semplice 
videogioco? 

Commodore Italiana S.p.A. 

Via F. Ili Gracchi 48 - Cinisello Balsamo (MI) 
Tel. 02/6125651-6123253 



Commodore 

COMPUTER 



62© REM *** INPUT DATI *** 

630 PR INTY*** A * NUM. DEC. "H INPUT X 

64© IFX<0 OR X >255 OR X < > INTOOTHEN X7» l « RETURN 
65© X8-XIG0SUB1© J0iXl*-X0* 

660 INPUT NUM. DEC . * I X 

670 IFX<0 OR X>253 OR K U I NT< X > THEN X7* 1 < RETURN 

860 K9-X«GOSUBl©10«X2*-X0SiRETURN 

690 REM *** VISUALIZZAZIONE VALORI BINARI *** 

700 PR INT*M «FORI -STO ISTEP- UPR1NTMIOSC XI©, 1,1) p * J « NEXT « PR I NT p a*X8 

7i0 PR I NT * " M FORI «6X0 1 STEP -I «PRINTMID©< KB©, 1 ,1 > m * J « hCXT « PR I NT " a* X9 «RETURN 

7E0 REM *** CALCOLO ANO *** 

730 K3©- p p « X l -0 « PR I NT " M m * > FOR I -STO ISTEP - l 

740 X«VAL<MID*< XI*, I ,1 >> AND VAL< M lD*t XB* , I , I ) > 1 X I »X l +K+B t< I - 1 > 

750 PRINT STR*< X ) M hEXT « PR I NT "a* X 1 1 RETURN 
760 REM 4M CALCOLO OR *#* 

770 X3©- * 14 1 X l ■© i PR INT" ■" I i FOR ì -6T0 ISTEP - l 

780 X«VAL< MIO©< XI©, I ,1 >> OR VAL< MIO*< XI* , I , 1 > > t X I »X 1 *X*«tC I - 1 > 

790 PRINT STR*< X)l «NEXT SPRINT -■"XI «RETURN 
800 REM * * * CALCOLO NANO *** 

810 X3*- M "iXl«0iPRINTTa n J IFORI-STGISTEP-IIREM INO. OE SI MONE 

880 X-IIIF C VAL< MID#C XI©, I , I >>-l > ANO < VAL< M 10©< KB* , I , 1 ) ) * 1 > THENX-0 

830 X 1 "X I *X*E t( I - 1 > ! REM TEL . 039/464446 

840 PRINT STR©CX>I MSEXT « PR I NT "Ì W X H RETURN 

850 REM *** CALCOLO NQR *** 

660 X3©- " * I X I -© * PR I NT * ■* ì « FOR 1 *0TQ ISTEP - 3 

870 X ■ 0 t I F ( VAL< MIO©< XI©, I , 1 ) ) *0 ) ANO < VAL< MI 0*< XE* , I , 1 > > -0 > THENX- 1 
080 Xl-Xl + X*2t< l-l ) 

890 PRINT STR*< XJMNEXTiRR INI" a M XI «RETURN 
900 REM *** CALCOLO OR ESCLUSIVO *** 

91© X3©- “ " «X 1 -0t PRINT" a " > «POR I -STO ISTEP- I 

980 X-IIIF VAL< MID©< Xl*, I , I > ) - VAL< MiO*< KB* , I , I > > THENX-0 
930 XI -Xl+X*Bt< I-l ) 

940 PRINT STR*< X>J «NEXTtPR INT“B P K1 «RETURN 
950 REM *** CALCOLO NOR ESCLUSIVO r** 

960 X3©- “ 11 I X 1 "0 « PR I NT " a" « « FOR I -STO 1 STEP - l 

37© K -© t 1 F VAL< MID©< Hit, I , 1 > > - VALC MIO*< KB©, 1 , 1 > > THENX- 1 
980 Kl«Kl+X*StC I-l ) 

990 PRINT STR*C K>nh£XT«PR INT*P"X1 «RETURN 
1000 REM *** TRADUZIONE IN BINARIO *** 

1010 X0** P *«K1-K 

1020 FOR I -7 TO 0 STEP - 1 

1030 X1»XÌ/B«XB-INT< Xi)« IFXK »X8THENX0*-K0*+ “ 1 *1X1 -XS » BOTO 1050 
1040 X0©-X0©+*0 p 
1050 NEXT I «RETURN 

1060 REM *** VISUAL IZZ. INVERE TER *** 

1070 PRINT "a 14 M FOR I *8T0 ISTEP - H PR lNTMIO*< X0* , I , 1 > " p I « NEXT « PR I NT p a M XS« RETURN 
1080 REM *** CALCOLO INVERTER *** 

1090 X3©- p “ «Xl -0 «PR INT p a"/ «FORI -8TD ISTEP -l 
1100 X-HIF VAL< MI0« X0©, I , 1 > > - 1THENK-0 
1 1 10 Xl-Xl*X*2tC I - 1 ) 

[1120 PRINT STR«< X>l INEXTI PRINT M a w Xl «RETURN 

1130 REM REGOLO p I 
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Didattica 

Assembler per tutti 


di Alessandro de Si mone 


PRIMA di continuare il discorso sul set di istruzio- 
ni de] 6502, vediamo di chiarire alcuni concetti già 
accennati sui numero scorso. 

1/ Il calcolatore -'ragiona" solo in binano puro, 
tratta cioè solo gruppi di otto stati di tensione 
elettrica alla volta alta o bassa, detti BIT, 

21 Per semplicità (vedi fig, 2 n, ] ), il dato formato 
da otto BIT (detto parola o Byte), viene "spezza- 
to” in due da quattro Bit (detti ciascuno Nibble) e 
“tradotto” in esadecimale, al solo scopo di rendere 
semplice la vita al programmatore, 

3/ Per semplificare ancora di più la stesura di un 
programma in L,M.. si ricorre spesso ad un linguag- 
gio detto “Assembler” che, utilizzando gruppi di 
lettere derivate dalle iniziali delle parole inglesi, che 
indicano la funzione dell'istruzione, ed incolonnati 
uno dopo l'altro, consente una relativa facilità ncl- 
rindivkìuare gli eventuali errori o neU’appartare 
modifiche (fig. 3 n, 1 ). 


Come si può notare nel linguaggio Assembler, 
non è necessario ricordare a memoria tutte le istru- 
zioni del 6502 sotto forma di coppie di valori esa- 
decimale nè tantomeno indicare volta per volta certe 
locazioni di memoria con l'indirizzo in esadecimale. 

D'ora in poi scriveremo i programmi in L.M., da 
inserire nel PET tramite il monitor TIM, e nel VJC 
e nel 64 con i “simulatori” pubblicati nei numeri 5 
e 6, con a fianco una ''traduzione” in Assembler. 
Dobbiamo ricordare, infatti, che ancor più che nel 
caso del BASIC, non esiste un Assembler universa* 
le, ma vi sono in commercio diversi tipi di Assem- 
bler, che differiscono l'uno dalFaltro in alcuni par- 
ticolari. 

Quello pubblicato sul fascicolo n,6> è un pro- 


gramma che consente di compilare (tradurre da lin- 
guaggio mnemonico in linguaggio macchina) in As- 
sembler, corredato da istruzioni, che gira su tutti 
i tipi di PET (2000-3000-4000 e 8000), anche vec- 
chie ROM sia pure da 8K, oltre che su Vie 20 e 
Commodore 64, e visualizza il programma assem- 
blato su video e su stampante. 

Il programma suddetto non è indispensabile, nè 
lo sarà per le puntate future, al fine di seguire i 
programmi che verranno descritti su Commodore 
Computer Club. Potrà, comunque, essere utilissimo 
quale compendio per i lettor* che vorranno stende- 
re programmi per conto proprio o per scrivere quei 
programmi pubblicati da altre riviste che non ripor- 
tano anche il cosi detto “codice oggetto”, cioè il 
programma scritto direttamente in L.M, 

Calcolo esadecimale, decimale, binario 

Continuiamo ora il discorso sull' L.M. , trattando la 
corrispondenza esistente Ira numerazione esadeci- 
male e decimale. Per esempio, per noi il numero 
I 83 significa un numero di oggetti pari alla somma 
di un centinaio, otto decine e tre unità. Volendo 
esprimere questo numero come un insieme di po- 
tenze di dieci, noi scriviamo: 

183 = I x 10/2 +8 x 1 0/ 1 + 3 x 10/0 

Si ricordi che qualsiasi numero, tranne 0, eleva- 
to alla potenza nulla, fornisce come risultato il nu- 
mero I 

Inoltre, si ricordi che 10/n è uguale a 10 x 10 
x... 10 n volte. Per esempio: 

10/4 *10 x10 x10 x10 = 10.000. 

Qualsiasi numero, pertanto, viene da noi rappre- 
sentato come la somma di potenze di dieci, decre- 
scenti (2, 1,0 nel nostro caso, perchè 183 è com- 
posto di tre cifre) ciascuna moltiplicata per un fat- 
tore che è una delle cifre del numero considerato. 

Altri esempi: 

Poterla d* 10 3 2 10-1 '2 Sanificato 

Valore 86 4 8 8x10/3+6x10/2+4x10/1+6*10/0 

4 2 4x10/1+2x10/0 

18.1 1*10/1 +6* 1 0/0+1 * 1 0/ 1 
1 0 0 2 1x10/1 +0* 1 G/Q+0x 10/ 1+2x10/ 2i 


1 LM A9 00 8D 00 80 60 ] 

Ass «58000= VFQEQ 

la locazione 8000 [esadecimaJ-el è degnila 
come "video'*. 

LO A# #o 

carica l'accumulatore eoo il dato che 
segue >mmed latamente [cioè /aro). 

STA. VIDEO 

trasferisce ìf valore dell'accumulatore 
nella locazione definita all'Inizio cerne 
VIDEO e oe 8000 

RTS 

return. 
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Tale sistema di numerazione è stato adottato 
dalFuomo perchè probabilmente quando scopri i 
numeri si servi del metodo più semplice di cui po- 
tesse disporre: le dita delle mani. 

Un calcolatore, e quindi anche un Commodore, 
ha a disposizione soltanto uno stato alto o basso, a 
seconda se in un particolare punto del circuito elet- 
trico vi è tensione o meno. Indicando lo stato alto 
di tensione con 1 e quello basso con 0, il computer 
dispone di un sistema che ha appena due simboli, e 
prende appunto il nome di “SISTEMA BINARIO”. 

Una cifra, in tale sistema, prende it nome di bit, 
ed una quantità qualunque deve venire espressa co- 
me potenza di due. 

Concettualmente i due sistemi di numerazione, 
decimale e binario, sono identici, solo che quello 
decimale ha a disposizione 10 simboli, quello bina- 
rio soltanto due, e perciò, per indicare una stessa 
quantità, saremo costretti ad usare più simboli, ri- 
correndo al binario, di quanti ne occorrano 
usando il decimale. 


Esempio: 


rt 

Potenza di 2 

3 2 10 

Significato 

Valore 

1 1 0 

1x2/2+1x2/l+0*2/O *5 (dee* 


1 1 

1x2/1 +1*2/0 -3 (dee) 


1111 

1 x 2/3+1 *2/2+1 *2/0 = 15 (dee) 


0 

0*2/0 » 0 


Come abbiamo visto, per rappresentare la quan- 
tità quindici, sono sufficienti due simboli (1 e 5) 
nel sistema decimale e ben quattro (1 l 1 1 ) in 
quello binario. 

Per quantità non molto più grandi (debordine 
del milione) c'è bisogno di decine di simboli binari 
contro i sette del decimale. 

Come memorizzarli, pertanto, in un calcolatore 
senza spreco di memoria? Il metodo è relativamen- 
te semplice se si ricorre al sistema esadecimale. Dal- 
la figura 1 della scorsa puntata, si può immaginare 
facilmente che una certa quantità sarà rappresenta- 


ta da un numero di simboli esadecimali, inferiore a 
quello decimale a sua volta nettamente inferiore al 
binario puro. Poiché la memoria di un calcolatore è 
una successione di gruppi dì otto bit ciascuno, noi 
potremmo considerare, per semplicità, ciascun byte 
come se fosse formato da due valori esadecimali, 
benché, nella realtà, il valore sia “scritto” in bina- 
rio puro (fig. 2 num, prec.). Si presenta ora un 
altro problema nel progetto di un calcolatore, e 
cioè come individuare, tra le tante, una certa 4 loca- 
zione di memoria. Ad ogni byte si assegna un indi- 
rizzo che altro non è se non un gruppo di sedici bit. 


[ 1 1 





■ ■ 




INDIRIZZO 




TRAD 

ESA 

HA 

LA 

DATO 


INO. 

DATO 

0000 

0000 

0000 0000 

0100 

0000 

* 0 

0000 

40 

0000 

0000 

0000 0001 

0100 

0010 


0001 

42 

0000 

0000 

0000 0010 

1111 

1111 


0002 

FF 

1010 

0010 

0000 1100 

1100 

Olio 


A20C 

C7 


In tale modo si possono indirizzare 
2/16*65536 locazioni di memoria. Con un numero 
inferiore di bit (ad esempio otto), si possono indi- 
rizzare solamente 2/8 * 256 locazioni di memoria, 
insufficienti per un versatile uso di un computer. 

Da notare che, in generale,! microprocessori ad 
otto bit (6502, 8080, Z80, ecc.), trattano come 
dati gruppi di otto bit, ed hanno come indirizzi 
gruppi di sedici bit. 

Per poter gestire una memoria più grande, dato 
che in teoria non c'è relazione tra numero di bit di 
un dato e numero di bit di un indirizzo, sì potreb- 
bero avere dati di otto bit, ma indirizzi di trenta- 
due e comunque più di sedici bit. 

Come mai, quindi, non si sceglie questa soluzio- 
ne per aumentare la capacità dì memoria, e invece 
si ricorre a memoria di massa, come i nastri magne- 
tici, i floppy disc o alle tecniche piu sofisticate, 
tipo quelle delle memorie virtuali? Semplicemente 
perchè sarebbe, in un primo caso, più complesso, 
come vedremo in seguito, indirizzare oltre il valore 
65536; in un secondo caso risulterebbe necessario 
cambiare Parchitcttura stessa della CPU. e di conse- 
guenza, modificare la struttura dei linguaggi già dif- 


44 - Computer Club 






Computer Club - 45 


fusi sul mercato internazionale. 

Ritornando agli indirizzi ed ai dati, vediamo ora 
di individuare un indirizzo di cui sappiamo il valore 
solo in decimale o esadecimale. 

Il problema si presenta quando si usano i co- 
mandi PEEK e POKE, dato che siamo costretti a 
fornire gli argomenti dei comandi stessi espressi co* 
me valori decimali, mentre spesso li conosciamo 
come valori esadecimali. 

Conversione di un numero da un sistema ad un 
altro 

Vogliamo convertire il numero 11052 decimale 
nel corrispondente esadecimale (che ha sedici sim- 
boli). 

Si divide il numero in oggetto per il numero di 
simboli e si considera il resto ed il quoziente intero 
(primo resto » 12; primo quoziente * 690). li quo- 
ziente, se maggiore o uguale a sedici, si divide nuo- 
vamente per sedici (secondo resto 2; secondo quo- 
ziente 43): poiché il nuovo quoziente è ancora 
maggiore di sedici, si ripete il procedimento finché 
si ottiene un quoziente minore di sedici, (terzo re- 
sto «11; terzo quoziente » 2), 

Il numero esadecimale desiderato è formato 
dai tre resti ottenuti e dall'ultimo quoziente in or- 
dine inverso: 2, 11, 2, 12. 

Infine, sostituendo tali valori con i simboli cor- 
rispondenti in esadecimale (fig. I n,p ), si ottiene il 
valore cercato: 2B2C. 

Convertiamo ora un numero esadecimale in de- 
cimale, trattando solamente numeri compresi tra 
0000 e RTF: La prima cifra rappresenta il numero 
moltiplicato per 16/3: la seconda per 16/2, poi 16 
/ I equindi 16/0: pertanto, volendo convertire 2B 
2C si scrive: 

2xl6/3+Bxt 6/2+2x16/ l+Cxl6/0 
cambiando i numeri B e C esadecimali in decimali, 
otteniamo: 

2x1 6/3+ 11x16/ 2+2x1 6/ 1+12x1 6/0- 11052 

PEEK ePOKE 

Prima di continuare è utile saper usare corretta- 


mente le istruzioni BASIC PEEK c POKE. 

Queste istruzioni consentono di leggere (PEEK) 
in tutta La memoria e di scrivere (POKE ): un qual- 
siasi numero intero compreso fra 0 e 255 in qual- 
siasi locazione della RAM. Per esempio, se noi bat- 
tiamo: 

PRINT PEEK (4080) 

apparirà, in decimale, il valore della 4080ma loca- 
zione RAM. Viceversa battendo: 

POKE 4080, 1 5 l 

il valore 151 decimale sarà trascritto nella 4080ma 
locazione di memoria. 

Da notare però, che, mentre il comando 
PEEK(X) legge un valore ed in nessun caso lo mo- 
difica, ['istruzione POKE X,Y cerca di modificare il 
valore della locazione X. Possono, infatti, verificar* 
si alcuni casi critici. 

1/ Cerchiamo di scrivere in una locazione ROM del 
BASIC o del G.S. (Operative System; sistema ope- 
rativo del computer), naturalmente, il dato che cer- 
chiamo di scrivere non viene scritto.in quanto nelle 
ROM non si può scrivere e nessun messaggio di 
errore appare per informarci deirimpossibilità di 
eseguire l 1 istruzione, 

2/ Analoga mancanza di messaggio di errore si veri- 
fica se f indirizzo della POKE cade in una zona 
RAM non esistente nella configurazione, perchè il 
sistema, per esempio, da 8K. non è appunto espan- 
so al massimo. In un PET da 8K l'ultima loca- 
zione utilizzabile è La 819ìma. 

3/ L'indirizzo della POKE rappresenta una locazio- 
ne RAM utilizzata dall'O.S, e una sua modifica 
può “distruggere" il sistema; saremo, in questo 
caso, costretti a spegnere e poi riaccendere il com- 
puter, perdendo, purtroppo, tutto il contenuto del- 
le RAM, 

4/ Il valore Y dì POKE X, Y è negativo o è maggio- 
re dì 255. Questo è l'unico caso in cui appare un 
messaggio di errore. Teniamo presente, infine, che, 
se Y è un valore non intero, verrà presa in conside- 
razione solamente la parte intera. 

Supponiamo allora di non cadere in uno dei casi 
critici, come facciamo a memorizzare un numero 
maggiore di 255? Il procedimento è un po' lungo. 
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ma è l’unico che sia possibile adottare. 

Vogliamo memorizzare il numero intero 11052 
decimale. Abbiamo già visto che in esadecimale 
corrisponde a 2B2C e poiché ogni cifra esadeci- 
malc rappresenta quattro bit, in totale avremo bi- 
sogno di sedici bit. Dato che ogni locazione di 
memoria contiene otto bit, noi potremo “spez- 
zare " 2B2C in due gruppi: 2B e 2C; il primo, dopo 
averto tradotto in decimale, lo scriveremo in una 
locazione, il secondo in quella successiva. 

Riassumiamo il procedimento in altre parole: 


il 052 dee » 202C esa 
2B 2C 

2Besa. = 2*16/1+6x16/0 = 2x16+11 = 43 dee, 
2C eia * 2*16/1+016/0 ■ 2*16+12 * 44 dee, 


Utilizziamo, per le verifiche che seguono, le lo- 
cazioni RAM da 826 decimale (033A esadecimale), 
fino alla 1023ma, perchè tali locazioni sono desti- 
nate alla gestione della seconda cassetta e non ri- 
schiamo di distruggere il sistema. (Caso del Pet). 
Scriviamo: 

POKE 826.44: FOKE 827,43 
Come si può notare, del numero 2B2C, abbiamo 
trascritto nella prima locazione (826) il valore 2C 
(LSB: Least Significane Byte = Byte meno signifi- 
cativo) e nella successiva (827) il 2B (MSB: Most 
Significa nt Byte = Byte più significativo), anziché 
al contrario, come saremmo stati indotti a fare 
istintivamente. 

Adottiamo questo procedimento perchè, come 
abbiamo visto in figura 3 della prima puntata, lo 
segue anche la CPU. Come faremo, allora, a sapere 
quale numero è rappresentato da due locazioni di 
memoria successiva? Naturalmente seguendo il ra- 
gionamento inverso. 

Traduciamo l’MSB in decimale e lo moltiplichia- 
mo per 256: 

2B esadecimale = 43 decimale: 43 x 256= 1 1008 
Analogamente ci comportiamo per l’LSB molti- 
plicandolo, però, per 1 (lasciandolo cioè invariato): 

2C esadecimale = 44 decimale 
In seguitoeseguiamo lasomma fra i due: 

11008 + 44 = 11052 


Altri esempi: 


LSB 

826 

MSB 

027 

Significato 


10 

15 

15x256+10 

= 3850 

112 

100 

100x256+112 

= 25712 

1 

BB 

88x256+1 

= 22529 

1 

1 

1x256+1 

= 257 

255 

0 

0*256+255 

= 255 

255 

255 

255x256+255 

- 65535 n ì 


Come si può notare il numero piu grande che si 
può rappresentare è 65535 ed il più piccolo è zero, 
ma tutti positivi. Se però rinunciamo ad ottenere 
valori così grandi possiamo seguire la convenzione 
secondo cui sono da considerare positivi i valori 
fino al numero (65535-1 )/2 cioè da zero a 32767, 
mentre da 32768 a 65535 inclusi, sono negativi e 
valgono esattamente il valore considerato meno 
32767: 


Esempi: 

52766 signifteharà -S 52 708*32 76 7] = 20001 
65535 s.grt^ctìerà 165535-32767) = 32768 
32768 significherà (32768 32767) * 1 


In questo modo possiamo rappresentare tutti i 
numeri interi negativi e positivi, compresi fra 
-32768 e +32767. Ecco spiegato, dunque, perchè 
certi computer non molto sofisticati (ed anche i 
Commodore quando usiamo variabili intere tipo 
A%) trattano solamente quei numeri interi: con 
due byte adiacenti non è possibile superare finter- 
vallo suddetto. 
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Guida mercato Commodore 


Prodotto Prezzo 

(IVA escluda} 


VIP • 20 


Home Computer Vie 20 


199.000 

Uniti di espansione {1920} 


295.000 

Modulo di espansione (1023} 


135,000 

Cartuccia da 3K di memoria 

f 1210 } 

66.000 

Cartuccia da 3K di memoria 

{1110} 

98,000 

Cartuccia da I6K di memoria 

(1111) 

172,000 

Cartuccia Vie rei 

(4011} 

95000 

Permette di controllare il funzionamento di allarmi antifurto, porte 

automatiche, telefoni, trasmittenti ed apparecchi similari. 


Vie swhch 

{4012} 

225.000 

Possono essere collegati fino a 

10 VIC 20 con un floppy e una 

stampante (distanza massima 1 SCO mt,>. 


Interfaccia IEEE 488 

{T-l} 

175.000 

Interfaccia Centronics 

( T-3 } 

115.000 

RS232 C adaptvr 

(101 hA} 

75.000 

R6132-C ad a p ter 

(101 1-B} 

75.000 


CPU 64 K RAM (CBM64} 625. 000 

G 64 Executive {SX64} 2,350.000 

Staimi operativo CP/M {CPfM} 125.000 

Consente dì programmare il Commodore 64 in lingueggio CP/M, il 
più utilizzato sul Personal Computers, Permette inoltre di accedere 
alla enorme libreria di Software applicativi CP/M, 

Pai »p*ad {6411} 95.000 

Compilatore basic die aumenta la velocità di esecuzione dei pro- 
grammi di circa 40 volte. 


Par giocare 


Comando par giochi (JoyitlckJ {1811} 13.500 

Permette di muoversi in tutte le direzioni, di iniziare [ vari giochi di 
movimento e di "sparare" 

Comando a manopola par giochi IPeddle) {1812} 22.500 

Adatto per 1 giochi a 2 persone, esegue movimenti in orizzontale e 

verticale. 


Com modo re «00 


CPU 1BK RAM {CBM4Q16} 1.205.000 

18K ROM. BASIC 4.0 residente, video 40 colonne per 25 righe, 
tastiera semigrafica. 

CPU 32K RAM {CBM 4032} 1.495.000 

I8K ROM, BASIC 4.0 residente, video 40 colonne per 25 righe, 
tastiera semigrafìea 

Commodore 9000 

Doppia CPU 134K RAM {CBM 9000} Z36Q.00O 

Micro Main Freme Computer a doppia CPU (6502 68091 compatì 
bile con tutte le periferiche Commodore de Ha serie 0000. Include 5 
linguaggi dì programmazione. (COBOL, FORTRAN, TCL PASCAL, 
UCSD PASCAL, APLh 

Commodore 8000 

CPU 32K RAM (8032 SK} 1,725.000 

18K ROM, Basic 4.0 residente, video orientabile e basculante 00 
colonne per 25 righe, tastiera commerciale separata 
CPU 96 K RAM {8096 SK} 2.285 000 

18K ROM, Basic 4.0 residente, video orientabile e basculante 80 
colonne per 25 righe, tastiera commerciale separata, includa sistema 
operativo PM/96. 

Commodore 600 _ __ i 


Acoenori per Vie e Commodore 64 


Stampante pi cutter a colori { 1520 } 375,000 

00 caratteri, per linea, 4 colori, alia risoluzione di 0,2 mm per passo. 
Uniti stampa nta (MPS 801} 450,000 

Stampa velocemente su carta normale quanto appare sul video pro- 
grammi, lettera, dati, grafici. 

Uniti stampante { 2526 } 855 000 

Stampante 00 colonne, bidirezionale, 60 CPS. spaziatura program- 
mabile, trazione a frizione o a trattore. 

H •filtratore dedicato {1580} 120 000 

Per memorizzare facilmente programmi e dati su normali cassette 
magnetiche. 

Floppy disk dr iva (1541} 615 000 

Veloce unità di memoria di massa ad alta capacità. Può immagaz- 
zinare fino a 170.000 caratteri su ogni singolo disco. 

Monitor monocromatico {1601} 285.000 

A fosfori verdi 12". 


Indicato per applicazioni industriali, collegamento a strumentazione, 
controllo numerico, eco. Utilizza monitor in commercio. 

CPU 120K RAM (6Ì0} 2.150.000 

CPU 1 28 K RAM espandi bile in terna mente a 256K e esternamente a 
960 K, interfaccia RS232C, IEEE 488, porta utente a 0 Bit. Compa- 
tibile con tutte le periferiche Commodore della serie professional e. 
CPU 256 K RAM {620} 2.550 000 

CPU 256 K RAM espandibili esternamente a 960 K. Caratteristiche 
uguali al Mod. 610. 

Monitor (1601} 2B5.000 

Monocromatico a fosfori verdi, 12". 


Com modore 700 

CPU 128K RAM n IO) 2.660.000 

CPU 12SK RAM espandibili inter namente a 256K ed esternamente a 
960K, Video orientabile e basculante 80 colonne per 25 righe. Com- 
patibile con tutte le periferiche Commodore delle serie professionali. 
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Riservato 
agli ingegneri 

Il miglior software tecnico 
su elaboratori 
CBM - Commodore 
Ora anche disponibile su 
Commodore 64 

“S.S. - 80 " 

L * 1 ormai famoso programma per il calcolo delle strutture in- 
telaiate piane in a a. in zona sismica, che sviluppa e dise- 
gna anche le carpenterie delle armature. 

(Ultima versione Luglto/1982 nostra esclusiva). 


“ FONDAZIONI” 

Risolve tutti i problemi di fondazioni {trave elastica su suo- 
lo elastico) di strutture in c. a. in zona sismica e non, risol- 
vendo l'intero gratìccio di fondazione e proponendo una 
carpenteria sofisticata ed ottimizzata 


"MURI DI SOSTEGNO" 

A gravità, a mensola o a contrafforti, anche in zona sismi 
ca, secondo il D.M, del 21/1/1981 


"PENDI!" 

Analizza la stabilità di un pendio o di un fronte di scavo sot- 
to diverse condizioni e la verifica relativa viene condotta in 
termini di tensioni effettive; la stima dei fattori di sicurezza 
viene effettuata secondo i metodi di Fellenius, Bishop e 
Jambu. 


“COMPUTI METRICI" 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori. 


“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti. Praticità ed auto- 
mazione consentono di eseguire velocemente revisioni di 
prezzi anche per lunghi periodi. 

Richiedeteci documentazione e output dei pro- 
grammi di vostro interesse , Resterete sbalorditi 
dalla versatilità e dalia compitezza dei nostro 
software. 


SIRANGELO COMPUTER Srl 


Via Parisio, 25 - Cosenza 0984*75741 

NEW NEW NEW NEW NEW NEW NEW 
É pronto il nuovissimo programma 
“ORARIO SCOLASTICO” 
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CPU 2S0K RAM /720I 3.250,000 

Monitor a. colori 14” con audio, (ì 702} 645.000 




Floppy disk drivi» (2021) 675 .000 

Unità di memoria di massa ad alta velocità. Capacità T70KB. Drive 
singolo. 

Floppy di* drive (4040) 2 095 000 

Unità di memoria di massa ed aita velocità. Capacità 343KB, Drive 
doppio. 

Floppy disk drive (S0S0} 2 375 000 

Drive doppio 1M byte ìn linea. 

Floppy disk drivi (S250 H+P.) 2.450.000 

Drive doppio, doppia faccia, doppia densità 2M byte in linea. 
Floppy di* drivi (8250 LP) 2.600.000 

Drive doppio, doppia faccia, doppia densità, 2M byte in linea. 

Hard di* (9060) 6.200.000 

Tecnologìa Winchester, .5M byte in linea. 

Hard di* (9090) 6.700.000 

Tecnologia Winchester, 7.5M byte in linea. 



Stampante (4022 P) 695.000 

Bidirezionale ad aghi, 60 CPS, QO colonne. 


Sta mpa nt» (MPP ì 261) 1 . 275. 000 

Stampante ad aghi 150 CPS. 132 colonne, bidirezionale, trascina 
mento a trattore. 

Stampante (6400} 3.250000 

Stampante a margherita. 40 CPS, 136 colonne passo pica, 163 co- 
lonne passo àlìte, bidirezionale, utilizzabile anche con carta da bollo, 
trascinamento a frizione o a trattore 


Mieroprocataorft 32 K RAM (MUPET 11} 2-500,000 

Per connettere, in rete fino a 16 CPU RS232, IEEE 488, Centronics, 
li prezzo include (configurazione minima) controller, terminator, 3 
moduli, cavi, cavo IEEE/PET (par la versione SK). 

Singolo modulo addizionai»: - 325.000 

1 modulo 

1 cavo 6 piedi. 

Nuovo sterna operativo (PM 96} 95.000 

Per 8G96SK o per B032SK con 8 - 1 oppure con 0 - 2. Può gestire 
fino a 16 programmi residenti simultaneamente in memoria. Da a 
disposizione 26 K per le variabili e 53 K per i programmi. Potenzia 
inoltre il Basic con altri comandi. 

64K RAM f B-l ) 575000 

Scheda di ampliamento memoria per 8032 e nuovo sistema opera- 
tivo ”PM 96". 

CfVMakar (B-2) 1.450.0Q0 

incrementa la memoria interna di 64K RAM e permette l'uso di 
tutti I programmi CP/M, 8 bit disponibili. Compatibile con la serie 
3000/4000/8000 

Schedi ad alta risoluzione grafica (B2) 720.000 

Compatibile ai sistemi della serie 8000. 

Cavo PET/IEEE 486 (Oi} 85.000 

Cavo IEEE 488/1 EE E (02) 95,000 

Accoppi al ora acustico (BÙIO) .595.000 

300 baud/sec. 



FINALMENTE. 

LA TAVOLETTA GRAFICA A PIENE PRESTAZIONI 
AD UN PREZZO ACCESSIBILE A TUTTI 




La tavoletta grafica KOALA è la più simpatica innovazione nel campo dei personal 
computers. Con KOALA, controllate il vostro computer con un dito. Più veloce 

di un paddle, più versatile di un joystick e più 
semplice di una tastiera. 

La tavoletta grafica KOALA è compatibile 
con la maggior parte di software esistente 
e viene fornita completa 
del suo programma 
grafico "Micro lllustrator" 

KOALA-PAD è il miglior 

modo per creare computer graphics division 

immagini ad alta MILANO: Via L. da Vinci, 43 ■ 20090Trezzano S/N 

™ ;| Tel, 02/4455741/2/3/4/5 ■ Tlx- TEUNT 1 312827 

risoluzione con il vostro ROMA:ViaSalafi0i l319 . 00 i38R O ma 
computer. Tel. 06/69I7058-69I9312- Tlx.. TINTRO 1 6S43SI 
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presentano il primo dischetto 

di precisione 
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- Formulazione ossido ad alta 
densità lineare 

- Coercitivita fino a oltre 
600 oersted 

- Cfipping level af 65% 

- Densità fino a 1QG0O B P I 

- Capacità fino a 5 M8 

- Disponibili i nuovi dischetti da 3,5" 
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